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第 一 篇 ”常用 数字 信号 的 产生 
第 一 章 “ 数字 信和 号 的 产生 
8 1.1 均匀 分 布 的 随机 数 
一 、 功 能 


产生 (a，b) 区 间 上 均匀 分 布 的 随机 数 。 
二 、 方 法 简介 
均匀 分 布 的 概率 密度 函数 为 
一 
oo- 人 2 
通常 用 U (a,2) 表示 。 均 匀 分 布 的 均 信 为 么 士 &, 方 差 为 人 二 煞 -。 
产生 均匀 分 布 随机 数 的 方法 如 下 ; 


首先 ， 由 给 定 的 初 值 re 了 用 混合 同 余 法 
2 一 《ai 十 cmod 1 
性 一 AM 
产生 《0，1》 区 间 上 的 随机 数 4 其 中 一 2045Mf 一 1 于 一 224; 热 后 ,通过 变换 2” 一 双 十 
他 一 am 产生 (at 区 间 上 的 随机 数 =。 


三 、 使 用 说 明 


]， 子 函数 语 名 
doumble uniform (《a ，hb ，seed) 
2， 形 参 说 明 


a 一 一 双 精 度 实 型 变量 。 给 定 区 间 的 干 限 。 
b 一 一 双 精 度 实 型 变量 给 定 区 局 的 上 限 。 
seed 一 一 长 整 型 指针 变量 。 * seed 为 随机 数 的 种 子 ， 


四 、 子 冰 数 程序 (文件 名 :uniform.ec) 


double uniform(ka,b,seed) 


Gouple avbi 
long int * seeds 
{《 deuble ti 
# Seeg 一 2045 <《# Seed 7 十 11 
关 See 引 一 # seed 一 【# seed7 10d485767 关 1048576# 
t 一 (# seedy/1048576. 0 
t+ 一 a 十 人 一 a) 关 t; 
retutm (ty 


} 
五 . 例 题 


产生 50 个 0 到 1 之 同 均 匀 分 布 的 随机 数 。 
主 函 数 程序 (文件 名 :uniform-. im): 
并 ineluqe "stdio. hy 
#include "uniform cy 
Imainf) 
4 double ab,xyrintijs 
]ong int s; 
double uniform(dqdouble，double，long int = ); 
了 一 0 0; hb 一 1.0; 8 一 13573; 
for 0 一 Ori<103;1 一 十 ) 
{ for 司 一 0i<53 十 十 ) 
{ xX 一 tniformfayhb Rs; 
PrintEf” 屿 13. 7 和 7 区) 








} 
PrintfC" ny” ) ; 
} 
运行 结果 : 
间 , 4826355 0. 9895945 0.7206707 虽 . 7Y715826 0. 8864250 
0.7391634 0. 5891514 0, 8145781 避 , 8121262 0 7979975 
0. 9048367 0. 3909593 中 .51266886 4073076 日，94 二 0937 
站 .676261 如 ,47753571 0 1051798 0. 0D926647 0. 4993505 
1718712 间 , 二 了 日 5 了 二 吕 0. 5956669 0. 1387815 0. 8082657 
0 90033289 0. 3075924 0. 0264425 吕 ，07497DZ 站 ,3141527 
,4423084 6 5207319 .88907896 ,9340323 吕 . 3230572 
0 6519232 0. 1829033 站 0372286 0 1324558 口 , 虽 了 2 全 二 了 
站 了 个 吕 各 各 1 0. 8912775 站 ， 生 站 2 本 日 6 80054800 0. 2066078 


ae 











0. 5129900 D. 0645466 0. 997767 卫 和. 生 34433D0 介 . 4154520 


3$1.2 正 态 分 布 的 随机 数 


一 、 功 能 
产生 正 态 分 布 NGp,c) 的 随机 数 。 
二 、 方 法 简介 
正 态 分 布 的 概率 凡 度 函数 为 
一 1 忆 人 0 
一 区 


通常 用 N (ksc5) 表 示 。 式 中 站 是 均值 ，o 是 方差 。 正 态 分 布 也 称 为 高 斯 分 布 。 
产生 正 态 分 布 随机 教 的 方法 如 下 : 
设 m， ms，…， mm 为 (0，1) 上 个 相互 独立 的 均匀 分 布 的 随机 数 ， 由 于 下 (r) 一 计 ， 


DrD= 主 ,根据 中 心 极限 定理 可 知 , 当 充分 大 时 


的 盘 布 近似 于 正 态 分 布 NIo,1)。 通常 取 nm 一 12, 此 时 有 
12 





爷 一 了 >) 一 上 
最 后 , 青 通过 变换 y 一 Aczz， 便 可 得 到 均值 为 上 方差 为 史 的 正 态 分 布 随机 数 y。 
三 、 使 用 说 明 
1， 子 范 数 语句 


deuable gauss(meanysigmayseed) 
2， 形 参 说 明 


mean 一 一 双 精 度 实 型 变量 ， 正 态 分 布 的 均值 A。 
sigma 一 一 又 精度 实 型 变量 。 正 态 分 布 的 均 方差 c。 
seed 一 一 长 整 型 指针 变量 。* seed 为 随机 数 的 种 子 。 


四 、 子 函数 程序 (文件 名 ;gauss.ec) 


井 include ”uniferm en 





qdoubie gaumssftmealysigtnays) 


doubie mean ,sigmntal 








long int 类 sj; 

fintiy double xyy# 
double uniformft73 
for (x 一 0ii=Dyi< 1l28i 十 十 ) 

X 十 一 unifornm 人 0 1. 0 

怀 一 基 一 日 , 日 
7 一 tmnean 十 区 关 SIgImmay 
returnty7+# 


4 
五 . 例 匡 


产生 50 个 均值 为 0、 方 差 为 1 的 正 态 分 布 的 随机 数 。 
主 函 数 程序 ( 文 件 名 ,gauss,m)， 
芽 inciude ”stdio, hy 
##include ”gauss. cy 
tmain(y) 
《int iji long int 5 
和 euble X，mean，sigtmat 
double gauss(kdouble ，double，long int *# 7) 
Imean 一 0.04 sigrma 一 1.04 s 一 135794 
for 6 一 0H<101 一 十 > 
《for 人 一 0H<55 十 十 》 
{ X 一 gauss(meanysigmaye&s)i 
Printfga 913。 3 人 7 
Print 针 tax 


2.8997211 一 站 9088573 0 2041950 ”一 
0.7996998 ”一 9 9866619 0 0431385 ”一 

一 总 3689251 1. 2145863 ”一 1.0537090 

一 日 和 89828722 1, 9956684 ”一 0..59806863 

一 0 5213604 一心 4051342 0.8358479 一 
0.5338917 一 0 8120403 ”一 凡 3886852 一 


一 0 4013348 ”一 已 11176387 一 修 9708843 
0,. 5362415 0 7464619 相 
一 0.8525982 一 小 2490673 1 6823444 


0. 2572155 
1. 8194927 
1,. 7050953 
1. 292329 和 
,5445080 
0. 2546368 
0 686502247 


,. 32765318 一 0. 4041424 


0. 9455433 


38516827 
2543507 
6925945 
,1707630 
,60452045 
,4690113 
91179646 
8053455 
,4819355 


1.1704273 ”一 0.1725750 0,. 2068348 ”一 1,9999371 0. 8360157 


$1.3 指数 分 布 的 随机 数 


一 \ 功 能 
产生 指数 分 布 的 随机 数 。 
二 ,方法 简介 


1. 产生 随机 变量 的 逆 变 换 法 


定理 ” 设 Fiz) 是 任 一 连续 的 分 布 画 数 , 如 果 z~U(01) 卓 1 一 Fe 那么 办 -有 (rz)， 
证 明 ”由 于 #~UC0,1), 刚 有 
开 人 委 ) 一 PPTID 委 2 一 下 ( 委 下 (xz)) 一 三 (z) 
所 以 ,9y~Rz)。 定 理 证 毕 。 
此 定理 给 册 了 从 均匀 分 布 随机 数 到 给 定 分 布下 (z) 的 随机 数 的 变换 ,根据 该 变换 可 产 
生 分 布 务 数 为 FCz) 的 随机 数 x， 其 算法 可 用 下 列 两 个 步骤 实现 ， 
(1) 产生 均匀 分 布 的 随机 数 凤 即 zx 一 U(0,17852) 计算 zx 一 下 -Ga 


2， 产 生 指数 分 有 随机 数 的 方法 
指数 分 布 的 概率 密度 函数 为 
1 上 
ho- 全 让， 站 区 和 


0 ， 其它 
其 分 布 血 数 为 


Fe 下 ，x3e0 
0 


指数 分 布 的 均值 为 A， 方 差 为 序 。 
根据 上 述 的 道 变 搞 法 ,产生 指数 分 布 随机 数 的 方法 为 
(1) 产生 均匀 分 布 的 随机 数 雹 即 zs 一 U(0,1752)》 计算 x* 一 一 ln(e) 


三 、 使 用 说 明 
1， 子 函数 语 和 名 
dounble exbonent(beta,s》 
2， 形 闫 说 明 
beta 一 一 双 精 度 实 型 变量 。 指 数 分 布 的 均值 六 。 





s -一 -长 蛛 型 指针 变量 。 * s 为 随机 数 的 种 子 。 
四 、 辽 函数 程序 (文件 名 :exponent,c) 


闪 include math. hy 
并 include "uniform ec 
douhblc exbponenttKbetaysy》 
double beta; 
tong int 关 Si 
{ doupble U ,Xi 
double uniform (Di 
u 一 uniform(0. 0 1.0:s75 
X 一 一 betax logku)i 
fetUrn(CX7? 


} 
五 , 例 题 


产生 50 个 均值 为 2, 方 关 为 《的 指数 分 布 的 随机 数 ， 
主 函 数 程 序 ( 文 件 名 :exponent, my): 
井 includge ”stdio. hy 
芽 jnclude ”exbonent, cn” 
mainf7) 
fintijy long int si 
doubie x，betas 
double exponentf ?3 
beta 一 2.0;4 s 一 13579， 
for (= 一 Df ic 10; ii 十 十 ) 
{ for (一 0 j<< 5 十 十 ) 
{ x 一 exponentfbeta ,你 s); 
Printffw 晤 13.。 9 7 
} 
Printffr ny 7 
} 


} 
运行 结 杂 ， 
1,4569871 虽 . DZ209201 0. 6551459 人 5186231 日 , 24411175 
0. 86044725 1. 00581442 0, 和 101700 .和 161992 0. 4512997 
220008017 1.8783014 1,33624513 1.7963731 吕 , 1150587 
介 。 7 961 7 二 .4873781 和 ,5041683 4.7575350 1.3888938 








3. 5220201 1.4822608 1..0361474 3. 9497085 日 , 和 257288 
0 2033371 2. 3579599 7 2655635 5.181327 台 2. 315752f0 
1. 6314957 1 3050398 了 .2178681 0, 1352042 2 2598519 
0 8556571 3, 3975954 6. 583570 4.0430121 0.2735539 
1 1002899 日 .7 了 384279 0. 8234798 0 432633 台 3, 153865 久 
1. 3349979 95. 4807363 0 DO44701 1 86743272 1 795677695 


81.4 拉 普 拉 斯 (Laplace) 分 布 的 随机 数 


一 、 功 能 
产生 拉 普 拉 斯 分 布 的 随机 数 。 
二 、 方 法 简介 


1. 产生 随机 变量 的 组 合法 
将 分 布 画 数 Fkz) 分 解 为 若干 个 较 简 单 的 子 分 布 范 数 的 线性 组 合 
下 (zy 一 之 让 下 () 


其 中 户 0(CYD , 且 之 人 一 ] ,FF(z) 是 分 布 函 数 。 

定理 ” 若 随 机 变量 盖 离散 分 布 { 疡 ), 即 已 (GE 一 门 二 访 并且 工 一 Fegz)， 取 zz 一 2 
则 > 一 下 (zz) 一 之 1 疡 Fi(z) 

证 明 >* 的 分 布 函 数 为 ， 

已 人 z 扫 有 一 已 ((z 委 全 nUG 一 有 站) 一 >》 PP(z < 一 站 
一 ZIPGE 一 人 PPG 包 让 一 起 一 宙 机 (一 严 G) 

定理 证 毕 。 

根据 此 定理 ,我 们 给 出 产生 随机 数 的 组 人 台 算 法 如 下 : 

《1) 产 生 一 个 正 随机 整数 上 ,使 得 已 传 一 人 一声 但 一 1 天) 

(2) 在 二 一 计时 ,产生 具有 分 布 画 数 机 (zz) 的 随机 变量 工 。 

在 该 算法 中 ,首先 以 概率 疡 选择 子 分 布 画 数 玉 (z) ,然后 取 环 (Cz) 的 随机 数 作 为 严 Cz) 
的 随机 数 ， 

2, 产生 拉 普 拉 斯 分 布 随机 数 的 方法 


拉 和 将 拉 斯 分 布 的 概率 密 麻 函数 为 








zy = 芳 e- 呈 


拉 普 拉 斯 分 布 的 均值 为 0, 方 关 为 2 主 。 拉 普 拉 斯 分 布 也 称 为 双 指 数 分 布 ， 
根据 上 述 的 组 合算 法 ， 产 生 拉 普 拉 斯 分 布 随机 数 的 方法 为 
(1) 产生 均匀 分 布 的 随 袖 数 下 和 了 即 症 一 UCO 1 
， _ [一 有 lngl 一 训 ) 41 安 : 0 
2? 计算 < 一 1 Binfasz) EM 0.5 


三 、 使 用 说 明 


1， 子 甸 数 语句 
double laplacegbetaysy) 
2， 形 参 说 明 


beta 一 一 双 精 度 实 型 变量 拉 普 拉 斯 分 布 的 参数 8 
s 一 一 长 整 型 指针 变量 。 * s 为 随机 数 的 种 子 ， 


四 、 子 数 程序 (文件 名 :laplace.c) 


并 include ”tmath. hy 
并 include ”uniform er 
double laplacekbeta,s) 
double betay 
long int #sy 
{ double ulou2x5 
double uniform(7# 
ul 一 uniform(O，， 1， 5) 
u2 一 unifortnkO， 1， 839 
让 (ol<< 一 0,.5) 
X 一 一 beta x log(1, 一 QU37# 
else 
x 一 beta + logfu278 
tetuynKX7 


} 
五 例 题 


产生 50 个 参数 为 1.5 的 拉 普 拉 斯 分 布 的 随 积 数 。 
主 路 数 程 序 ( 文 件 名 :labplace.m)， 
# 井 incluade "stdio, hy 
8 





并 inciude "1aplace cn 
Iaing 7) 
t iat ii on int 5 
Qqouble x，beta' 
double laptaceg 7)j# 
beta 一 1.51 s 一 13579#; 
for (〔i 一 0ii<100 十 十 ) 
{ for (一 0;j<55j 十 十 》 
{ x 一 lapblacefbeta Rs) 
pzrintf(C” 9%613.7f，X)3 
PrinttC nr 7 


6. 8481255 ”一 0.3889673 ”一 .45633544 一 0..3076275 
1. 4087260 一 1.3472798 一 0.5970803 ,1 666987 
0. 9710420 一 2.9622812 一 0. 1525028 .0Dd401976 
1. 1032428 ”一 0. 1014031 1.5829982 0. 0569089 
一 0. 5538209 ”一 路 3244754 1 0792059 8. 工 569157 
一 0. 6078966 ”一 1.5382193 .9028431 一 3. 4637606 
一 0..0907?091 ”一 0 9236331 ”一 1.0849801 5, 9835591 
一 1.72578995 0. 1008553 一 0.9126053 ”一品 9336386 
一 3.7663898 0.05TI0632 .0513326 ”一 个 1540588 


人 


,7144444 一 2 1629963 一 个 83893618 一 2.9372783 一 


8$1.5 瑞 利 (Rayleigh) 分 布 的 随机 数 


一 、 功 能 
产生 瑞 利 分 布 的 随机 数 ， 
二 、 方 法 简介 
珊 利 分 布 的 概率 密 庶 函数 为 
Ar) 一 天 ee 0 


天 5 
嗣 利 分 布 的 均值 为 5 A/ 于 ， 方 差 为 | 3 卫 | =。 


384748 
377737 
5656504 


0855193 
8053746 
2715135 


,777128560 
321485 晶 
,了 3272S8 
,DO19107 








首先 用 道 变换 法 产生 参数 8= 2 的 指数 分 布 的 随机 变量 y， 其 概率 密度 函数 为 AKCy) 




















立 e-， 然后 通过 变 俐 zx 一 eV 了 ， 产 生 瑞 利 分 布 的 随机 变量 *>， 具 体 方法 如 下 ; 


(1) 产生 均匀 分 布 的 随机 数 :， 即 zx 一 U(0,1)) 


(2)》 计算 一 一 2lnta) 
(3) 计算 了 二 wy 


三 、 使 用 说 明 


1， 子 函数 语句 


double raylejghfsigrma ys? 





2， 形 参 说 明 
sigma 一 一 双 精 度 实 型 变量 。 瑞 利 分 布 的 参数 c。 
s -一 长 整 型 指针 变量 。*s 为 随 宙 数 的 和 





由. 子 函 煞 程 序 (文件 名 :rayleigh.c) 


共 include ”tmnath. ho 
开 jnclude ”unifornas ce” 
dotlhle rayleigh(sigmays) 
qouple sigtmmai 
jong int 关 S4 
{ doupble uvyxi 
double uniform(7 ; 
一 uniformfto, 1， 5) 
和 一 一 2 人 + logfo)s 
和 一 SigIi8a > SGQFLCX 3 
Fetutng xy) 


五 、 例 题 


产生 50 个 做 数 “= 一 1 的 瑞 利 分 布 的 随机 数 。 
详 函 数 程序 (文件 名 :rayleigh. m)， 
栖 include ”stcdio. hy” 
划 include ”rayieigh. cy 
Imainf 》 
t int ij leong irt 8# 
double X，sigrmai 
1 








子 。 





double rayleighf7s 
Sigma 一 1.0; s 一 13579; 
for (i 一 0;i<1035i 十 十 》 
ffor G=05j<55 十 十 ) 
{ x 一 rayleigh(sigmayers)i 
Printffa 的 13， 7f ， 基 35 





} 
Printf( ny )3 
} 
} 
运行 结果 : 
1,.2070572 0. 1446379 0. 8094108 0.7201549 0, 4910371 
0.7774783 1.0286614 0. 8404452 0. 6451350 0.6717884 
0. 4472155 1,.3705114 1.1559633 1.3402884 0. 3392045 
0.8922483 1.2195811 2.1223025 2.1811774 1.1785134 
1.8?767046 1.2174813 1.0179132 1.9873873 0. 6524790 
0.4509292 1,.5355649 2. 6954708 2.2762530 1.5217595 
1. 2773002 1.1423835 0.4667634 0. 3677012 1.5032804 
0.9250173 1,. 8432568 2.5654154 2.0107243 0.5230238 
1.0489471 0. 8593183 0. 9074579 0. 6577490 1.7759124 
1.1554211 2. 3410971 0.0668588 1, 2912890 1.3254344 
& 1.6 对 数 正 态 分 布 的 随机 数 
一 、 功 能 
产生 对 数 正 态 分 布 的 随机 数 。 
二 、 方 法 简介 
对 数 正 态 分 布 的 概率 密度 函数 为 
_ 旦 1 
[se| -0 人 |。 =>。 
7 下 2m0 25 | 


0 zs0 
对 数 正春 分布 的 均 从 为 e” ”, 方 关 为 Goz 一 1jewr 


首先 产生 正 态 分 布 的 随机 变量 >， 然后 通过 变换 xz 一 所 产生 对 数 正 态 分 布 的 随机 变 
量 二 。 上 有 具体 方法 如 下 : 
(1) 产生 正 态 分 布 的 随机 数 y ， 即 y 一 NGCaya23 
《2) 计算 zx 一 马 


] 





三 、 使 用 说 明 


1 子 函 数 语 句 
double lognormtuysigmays) 
2， 形 参 说 明 


u 一 一 双 精 度 实 型 变量 。 对 数 正 态 分 布 的 参数 凡 。 
sigma - 双 精 度 实 型 变量， 对 数 正 态 分 布 的 参数 v。 
s。 -长 整 型 指针 变量 。* s 为 随机 数 的 种 子 。 


四 . 子 函 数 程序 (文件 名 :lognorrm ce) 


地 inelude ”math ,hh 
并 inelude ”gauss, cn 
douhbte legnormkauysigmays》 
ouble uysigrmay 
long int +#sf 
{ double xy 
double gausst) 
y 一 gauUss(Uysigimay sy 
基 一 &XDPIY)H# 
rettrmtXy》 


# 
五 、 例 题 


产生 50 个 参数 w= 0.o=0.5 的 对 数 正 态 分 有 的 随机 数 ， 
主 函 数 程序 (文件 名 ,lognorm.tmn)]: 
林 include ”stdio 和 
并 inelude ”lognortm ce” 
maint ) 
fint ij long int sj 
double xu，sigtmay 
4eouble lognormfe 28 
u=0.0; sigma 二 05 s 一 135794 
for 和 一 0Oii<<101 十 十 ) 
1 for 司 一 0j<5 十 十 》 
1 xx 一 lognorm(uysigmayes)i 
PrintE 7 邮 13 7 三 4 
12 


Le 人 


-时 





Printf(” sn 73 


} 
运行 结果 ， 

4 2625203 0 6348105 1, 1074945 0,. 8793188 
1. 4916008 0 6105892 1.0218035 0,. 3829900 
小 831551 1. 8354563 WU, 5904593 2 3456149 
90, 7815813 2.7124009 如 7415348 1 9082086 
0. 7705273 0, 8166317 1, 5188051 0.7616608 
1， 3059697 人 妨 6662967 0 8233758 0 8804533 
9, 8181845 委 , 9456485 ,6154250 1.3841861 
1. 3075050 .45524198 1. 9420923 0.8170365 
人 6529219 0 g829085 2. 3190839 ].604 本 350 
1 7953745 0.9173305 二 10895442 0,.3678910 


$1,7 柯 西 (Cauchy)? 分 布 的 随机 数 


一 、 功 能 
产生 柯 西 分 布 的 硬 机 数 。 


二 、 方 法 简介 
森 西 分 布 的 概率 密度 画 数 为 


zy》 一 江 [ 床 十 《六 本 的 杀 
通常 用 Ca 及 表示， 其 分 布 函数 为 


Lete[ 王 一 4 
Fdz) = 到 十 二 arctg| 太 | 


用 效 变 换 法 产生 森 西 分 布 CCa,8) 随 机 谈 量 r, 其 有 只 体 方 法 如 下 ， 
(1) 产 生 均 匀 分 布 的 戎 机 数 z ，, 即 xs 一 UC01)1 


《2) 计算 z 一 & 一 


三 、 使 用 说 明 





好 盖 0 





tt 区 { 才 下 ) 


1， 子 函数 语句 


doubie cauchyfavby,s) 


0 6532200 
1 356161 
0. 4290005 
03893325 
2.2764161 
1 2642837 
1.9328243 
2 4661858 
1. 2724800 
T. 5189326 
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2， 形 参 说 明 


a 一 一 又 精 旗 实 型 变量 。 柯 西 分 布 的 参数 "。 
b- 一 一 奴 精 度 实 型 变量 。 柯 西 分 布 的 参数 0。 
s 一 -长 整 型 指针 变量 。* s 为 随机 数 的 种 子 。 


四 . 子 画 数 程序 (文件 名 :cauchy,c) 


并 include ”rmath, hy” 
林 include ”uniform cn 
中 Duble cauchyfaypysy》 
doubie avbi 
long Int 关 8# 
{ double uyxi 
double uniform{7)# 
u 一 uniform(0, 0 1.0,s) 
一 8 一 bytan(3.1415926#u)5 
YetUTTRCK7S 


} 
五 例 题 


产生 50 个 参数 e=1、8 一 1 的 柯 西 分 布 的 随机 数 。 
主 函 数 程序 (文件 名 :cauchy. my) : 
#ineclude ”stdio. hy 


从 inelude "eauchy.e7 





Inaint ) 
《int is long int S# 
double x，alpha ，beta; 
double cauchyf7; 
alpha 一 1.0;， beta 一 1.0; 8 一 13579# 
fcer 6 一 Di 1051 十 十 7 
{ for (一 05<<59 十 十 》 
1 x 一 cauehy(alpbhaybetayers); 
Printf (7 吃 13.7f xy5 
brinttf nr 1 


,8308272 
.5179655 
,0398206 
.9153867 
.3099350 
,0100975 
,9752383 
.5111265 
,5600127 
,5733032 


.1457105 
.4928074 
,7002780 
.3374801 
.1463964 
.1670158 
.8008814 
.2628045 
,4274268 
.7910515 


1.8 韦 怕 CWeibull> 分 布 的 随 桃 数 


0.9453936 31.5794764 
1 .8341286 1. 2876379 
二 .2446246 全 6433801 
了 ,59 名 3145 台 。 所 羡 2 有史 

一 口 66844456 站 ,号 262747 
业 .19847 半 从， 六 癌 日 2 六 站 了 
昌 . 品 1674556 1 .DB652235 
1.5171593 一 入 5444290 
1. 2462881 1. 6854823 
1 0408319 一 3.8636963 
一 、 功 能 
产生 韦 倍 分 布 的 随机 数 。 
二 、 方 法 简介 
韦伯 分 布 的 概率 密度 函 雪 为 


天 《 立 ) -| 本 


用 (wyB) 表 示 ， 其 分 布 冰 数 为 


《全 )》 一 


韦伯 分 布 的 均 信 为 女 P| 二 | 。 
应 用 道 变换 方法 ， 我 们 得 到 产生 韦伯 分 布 随机 变量 * 的 算法 如 下 ， 

(1) 产生 沟 匀 分 布 的 随机 数 ay, 即 xz 一 U(CD ,1 

(2) 计算 工 一 有 一 ]Jngey)1a 


三 、 使 用 说 明 


1， 子 函数 语句 


double weibullka ,bys》 


2， 形 参 说 明 


a 一 一 双 精 度 实 型 变量 。 韦 伯 分 布 的 参数 。 
b 一 一 双 精 度 实 型 变量 。 韦 伯 分 布 的 参数 8。 


1 一 


0 


0 


芭 ) 


- 人 和 


式 Dean0D2>0 


了 民间 


人 


6826832 
“ 3583286 
. 0349649 
9979597 
4543 生 和 7 


3393057 


.3787720 
.3546693 
3179573 
279566 


20，a0， 有 > 
郊 忆 站 





s 一 长 整 型 指针 杰 襄 。*s 为 随机 数 的 种 子 ， 
目 、 子 珊 数 程序 (文件 名 :weibull,c) 


共 include “math.h”" 
林 include ”uniform ec” 
double weipulitasbys》 
double ab 
jong int xs 
{ double u ,Xi 
double uniformt2; 
一 uniformt0O. DT1.Dss73 
一 一 logfu7s 
X 一 bx powfuy1 Da 
TetUTnKX)》 


五 、 例 题 


产生 50 个 参数 e 一 2、8= 1 的 书 佑 分 布 的 随机 数 。 
主 画 数 往 序 (文件 名 :weibull. my) : 
并 include ”stdio. h” 
菇 include ”weibujll. ec” 
mnaing 》 
Lintiy longint s5 
double x。aipha ，hetay 
double weibuli0) ， 
albpha 一 2.07 beta 一 1.0; ss 一 135991 
foer 避 一 0 天 105 十 十 ) 
f for 和 一 05<55 十 十 ) 
{ x 一 weibull(alphaybetay&s); 
Printff” 冶 13， 7 X) 
】 
Printff snn 38 
} 


1 
运行 结果 : 
0.8535183 口 . 1022744 0. 5723399 0 509226 和 4 0, 3472157 
介 ,5497602 旭 . 7 了 27373 和 4 ,453528631 0. 4561793 D. 47950262 
0. 3162291 0 96909798 0.8173895 昌 9477270 0 239853 台 
16 





0. 6309148 0.。 8623741 1 5008646 
1 3270305 .8608893 0 7 了 71197734 
34188551 1. 0858084 .9959 名 57 
D. 903187E 0. 383077870 0. 3300516 
0. 6540860 .3033794 1.8140227 
0 了 417176 0 60076298 六 6416696 
0 81700 人 1 1. 0554056 0 0472763 
一 、 功 能 
产生 爱 尔 朗 分 布 的 随机 数 。 
二 、 方 法 简介 
爱 尔 裔 分 布 的 概率 密度 函数 为 
_ 和 并 YX _ 
(zy 一 (高 2 二 1 Te 症 


也 区 0， 
工 所 昌 


1 5423253 
1. 4052951 
1.6095S541 
0,. 2600040 
于 生 21796 名 
如 46650988 
0, 9130792 


虽 0 


0. 8333348 
9 4613724 
,0760465 
1 0629798 
0 3698337 
2557800 
0. 9372237 


$1.9 爱 尔 妆 (Erlang) 分 布 的 随机 数 


通常 用 E(m, 人 表示 。 爱 尔 朗 分 布 的 均值 为 mmB ， 方 差 为 mm 让 。 显然， 当天 一 1 时 ，E(， 
全 就 是 参数 为 中 的 指数 分 布 的 概率 密度 函数 。 


若 wG 一 1,2,…vm) 是 独立 加 分布 (IID ) 的 参数 为 8 的 指数 随机 变量 , 则 z= > %: 服 


从 爱 尔 朗 分 布 己 (mm,p8)。 因 此 ， 先 用 逆 变 换 法 产生 指数 分 布 的 随机 变量 
久 ( 和 一 一 Binte)yau 一 UC0,1))， 然后 产生 爱 尔 训 分布 的 随机 变量 *， 即 


了 一 > y 一 > (一 有 in 一 一 岂 in To 
产生 爱 尔 朗 分 布 随机 变量 x 的 具体 算法 如 下 ， 


《17》 产生 TD 均匀 分 布 的 随机 数 于 1 9 到 2 即 PCO 1)3 


(2) 计算 = 一 一 bln( 了 [ 
三 、 使 用 说 明 
1， 子 函 教 语句 
double erlangftm beta:s) 
2， 形 参 说 明 
如 一 一 整 型 变量 ， 爱 尔 庆 分布 的 参数 mm。 


beta -一 双 精 度 实 型 变量 。 惨 尔 朗 分 布 的 参数 8。 
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s -一 一 长 整 型 指针 变量 。 * s 为 随机 数 的 种 子 。 
四 、 子 函数 程序 (文件 名 ,erlang'. ec) 


##include ”rnath. hy 

井 include ”uniform en 

douable erlangkm ,betays) 

int mi; 

deuble beta ; 

long int #s; 

{ int iy double usxs 
double uniform{f7; 
for ku 一 1.0,i 一 0 i<my it 十 十 ) 
Wu + 一 uniformt0. 0 1.0:s74 
和 一 一 beta x log(u) 
returnx7 


} 
五 . 例 题 


产生 50 个 参数 症 =3.8 一 1 的 爱 尔 朗 分布 的 随机 数 。 
主 函 数 程序 (文件 各 :erlang.m) : 
划 inelude "stdqio, hy 
并 ineludqde ”erlang,ey 
main(》 
{ int ijymf 1ong int s; 
double 区 ，betay 
double erlangf); 
一 35 beta 一 1, 0 8 一 上 3579# 
forki 一 0H<10i 十 十 
{ foerfj 一 Dj<59 十 十 ) 
{ xx 一 erlangfmybetay&s)y; 
brinttfw 的 13.7f2 区 7 
} 
Printfg sn 7 


) 
运行 结果 ; 
1.0665267 0.6821066 0.9422567 1.2648014 1.6238420 


3. 3938267 4. 8342242 3, 2340584 1. 4935127 7.3813219 
18 





1 5772018 1,6253566 7.0109820 1.0561359 2.2049897 
3.4101019 2.2240145 1. 9299352 1.9592353 5.9587183 
0..5812231 1. 5929523 4,2617917 2.7262666 4.4612184 
1. 3056705 1.8735027 人 1363468 4.4265428 1.6808789 
2.2389832 它 .上 988 有 了 负 2. 9839444 由 .。 141655 二 3. 6086712 
.1421738 2,. 3656099 1.2727489 业 4.0904193 了 .5296683 
4.3179040 2.9108481 2.7557034 2, 3836980 1.6895797 
2.4720519 2,0467947 1.7919904 1.5726769 2.3995914 
$1i.10 贝 努 里 (Bernoulli) 分 布 的 随机 数 
一 、 功 能 
产生 贝 努 里 分 布 的 随机 数 。 
二 、 方 法 简介 
贝 努 里 分 布 的 概率 函数 为 
让 一 
FaD 一 | 
1 一 训 ，z 一 0 


用 BN(z) 表 示 。 贝 努 里 分 布 的 均值 为 避 ， 方 为 访 (1 一 疡 ) 。 


产生 贝 努 里 分 布 随机 变量 > 的 算法 如 下 : 
《1) 产生 均匀 分 布 的 随机 数 = 即 xs 一 U(01)4 
(2 如 果 x< 委 p， 那么 zx 一 1 否则 ， 交 一 人 


三 、 使 用 说 明 


1， 子 蔓 数 语句 
int bakpys》 
2， 形 参 说 明 


p 一 一双 精 度 实 型 变量 。 肌 努 里 分 布 的 参数 户 。 
s 一 一 长 整 型 指针 变量 。* s 为 随机 数 的 种 子 。 


四 、 子 表 数 程序 (文件 名 :bn.c) 


##inelude ”unifcorm, ec 
inat bnfPpys) 
double pi; 


long int <sj 


I9 


{ int xi double ui 
double uniform( 7); 
0 一 Uniform(0.0,1.D,s)i 
X= 一 (ua<=Pp)? 1:0) 
Teturmfx)# 


) 
五 、 例 题 


产生 50 个 参数 沁 一 0. 7 的 贝 努 里 分 布 的 随 册 数 . 
主 函 数 程序 (文件 名 ;bn.m) ， 

式 inecluqde "stdio. hy 

村 include "bn ey 


Iaint 7) 














fint ixi long int s; 
double p， 
一 7 S 一 13579# 
for G 一 05i<10ii 十 十 》 
{ for 0 一 0;j<<55 十 十 ) 
{ x 一 bn(p&s)i 
PEIntEC7 听 11d7 xD) 
Printff ny ) 3 


} 


) 
运行 结果 


上 一 
让 


书记 
上 站 人 
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二 


1.11 贝 努 里 -高 斯 分 布 的 随机 数 


一 、 功 能 

产生 员 努 里 -高 斯 分 布 的 随机 数 。 

二 、 方 法 简介 

由 努 里 -高 斯 分 布 的 随机 变量 > 是 贝 努 里 分 布 的 随机 变量 * 与 高 斯 分 布 的 随机 变量 
xz 的 乘积 , 即 zx=yXz。 因 此 ， 贝 努 里 -高 斯 分 布 的 随 桃 数 可 视 为 , 每 当 贝 努 里 序列 中 有 1 
出 现时 ， 打 开 高 斯 随机 数 发 生 器 ， 并 用 其 输出 代替 1。 贝 努 里 -高 斯 分 布 的 均值 为 re, 方 
差 为 娟 ， 其 中 坊 是 贝 努 里 分 布 的 参数 ， 是 高 斯 分 布 的 均值 。 

在 地 震 勘探 信号 处 理 中 ， 常 用 贝 努 里 -高 斯 序列 描述 地 下 主要 层 状 结构 的 反射 作用 。 

产生 贝 努 里 -高 斯 分 布 随机 变量 z 的 算法 如 下 ， 

(1) 产生 贝 努 里 分 布 的 随机 数 y， 即 yy 一 BNIp)3 


(2)》 产生 高 斯 分 布 的 随机 数 z， 即 ~ 一 NGCno) 
(3) 计算 z 一 yXs 


三 、 使 用 说 明 














1， 学 函数 语句 
int bg(p ,meanm ,sigtna ,S) 
2， 形 参 说 明 


p 一 一 双 精 度 实 型 变量 。 贝 努 里 分 布 的 参数 疡 。 
双 精 度 实 型 变量 。 高 斯 分 布 的 均值 w。 
双 精 度 实 型 变量 。 高 斯 分 布 的 均 方 差 c。 
长 整 型 指针 变量 。* s 为 随 柄 数 的 种 子 。 


四 、 子 琐 数 程序 (文件 名 :bg',c) 


并 ipclude”gauass,ey 





ITIe 也 





si 风 ma 





号 


deuble bgktpymeanysigrmays) 
double P ,mean sigmay 
Iong int #si 
{ deuble u xi; 
double uniform1) ，gaussf 7 
uU 一 HUniformfdo ny1.0:s) 


iu< 一 D) 
21 








和 一 gausst《mearnysigtnay sy 
else 

一 昌 0 
Teturm 75 


} 
五 、 例 题 


产生 50 个 参数 p 一 0. 4 .Ap 一 0 一 1 的 贝 努 里 -高 斯 分 布 的 随机 数 。 


主 明 数 程序 (文件 名 :bg.m)， 
林 include ”stdio, hy 
并 include "bg.ec” 
imainf 7 
《int ij Long int S# 


double ph，x，mean，sigmai 


doubie bg(Cdouble ,double ,double ,long int # )) 


了 一 0. 4 mean 一 0 0 SIgm8 一 1. 0 5 一 123573 


fer (一 0ii<1035i 十 十 》 
{ for 0 一 05j<53 十 十 ) 


{ X 一 bg(p meanysigmaygs); 
PrIintC 91 人 7 和 区) 


} 


BrinttC7 Any) ， 
} 
} 

运行 结果 ， 
0. 6910229 0. 0000000 1 
.0000000 0. 0000000 已 
一 1.09547T23 人 .00000000 日 
0.0000000 0.0000000 
0. 4781475 0. 0000000 吕 
0. 9864216 0. 0000000 避 
0, 0000000 1 00000000 扣 
口 . 8279819 0.0000000 之 
0. 1726513 0. 1959400 ”一 个. 
0. 0000000 0. 0000000 O 
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:669546841 
0009008 
- 0000000 
. 0000000 
-0000000 
7719517 
. 08600000 
.7472401 


427860 


0O08009900 


外 


. 00000000 
. 3757915 
.0DDbooo0 
,0000000 
.0000000 


0D0bn00 


,0DD00000 
. 0780338 
“3121983 
OO000000 


4901104 
“On0b0000 
, 1713009 
- 0000000 
- 1607037 
0000000 
.241601 旨 


0000000 


-日 1 人 9777 
.8137707 





$1.12 二 项 式 分 布 的 随机 数 


一 、 切 能 
产生 二 项 式 分 布 的 随机 数 
二 、 广 法 简介 


二 项 式 分 布 的 概率 函数 为 
Fr) = 人 5 一 让) 之 和 10 1)} 
用 Bin (na,z) 表 示 。 二 项 式 分 布 的 均值 为 map , 方 瑚 为 attl 一 扣 。 当 一 1 时 ， 
Binka 纪 就 是 贝 努 里 分 布 BN (pp ) 。 
若 %G 一 1,2，) 是 独立 同 分 布 (IID)? 的 参数 为 请 的 贝 努 里 分 布 随机 变量 , 则 z 一 


> y 服从 二 项 式 分 布 Bin(myp)。 因 此 ,产生 二 项 式 分 布 随机 变量 z 的 算法 如 下 : 
《1 产生 ID 由 努 里 分 布 的 随机 数 19 3 ,类 yi 一 BNP 
(2) 计算 z= > 


三 、 使 用 说 明 


1， 学 函数 语句 
int binknypys) 
2， 形 参 说 明 


3 一 一 整 型 变量 。 二 项 式 分 布 的 参数 ma。 
p 一 一 双 精 度 实 型 变量 。 二 项 式 分 布 的 参数 加 
长 闽 型 指针 变量 。 *s 为 随机 数 的 种 子 。 


四 、 子 函数 程序 (文件 名 :bin. e) 


并 include "bn en 


int binfkn,pysy》 





号 


int mt; 
aouhble p1 
long int 关 s# 
{ int iy double xi 
int bn(); 
for (= 一 00, 一 0 1<nri 十 十 》 
23 


x 十 一 bnpys)y 
teturnXxy? 


) 
产生 50 个 参数 = 5.b 一 0.? 的 二 项 式 分 布 的 随机 数 。 





主 范 数 程序 (文件 名 :bin.my) ， 


林 记 elude ”stdio, hy 
井 inelude "bin. ec” 
maint ) 
{ int ijsnyxy long int s; 
double p; 
int binfy; 
了 一 5 昌 一 0 75 8 一 13579# 
for 和 一 00<105i 十 十 》 
f for 名 二 03j<5 呈 十 十 ) 
{ X 一 binfn,p,&s)， 
Printft” 511d9 ,xy 
} 
Printf(” Am ); 
4 





} 
运行 结果 : 
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Mt 有 
本本 
站 
忆 和 和 


co po bit 上 区 En 2 和 上 


一 





8$1.13 泊 松 (Poisson) 分 布 的 随机 数 





一 、 功 能 
产生 泊 恰 分布 的 随机 数 。 
二 、 方 法 简介 
泪 松 分 布 的 概率 画 数 为 
Jr 一 到 ET10 1 


用 了 ff) 表示 。 沂 松 分 布 的 沟 值 为 4 ,方差 为 。 
定理 才 人 >0,z 是 整数 , zu 是 40,17 区 间 上 均匀 分 布 的 随机 数 , 即 z~U(Co.17, 轧 
有 


那么 zx 是 一 个 以 4 为 均值 的 泊 松 分 布 随机 变量 。 
产生 沪 松 分 布 随机 变量 zx 的 算法 如 下 
(1) 设 天 1， 一 0; 
《2)》 产生 均匀 分 布 的 随机 数 ， 即 一 UCO 1) 
(3) 计算 pet 
《4) 如 果 4 蔗 e， 那 么 zi 二 1， 返 回 到 (273 
(5) 取 工 一 ! 


三 、 使 用 说 明 





1， 子 函数 语句 
int poisson(lambdais) 
2、 形 参 说 明 
iambda 一 一 双 精 度 实 型 变量 。 泊 松 分 布 的 均值 \。 
s 一 一 长 整 型 指针 变量 。* s 为 随机 数 的 种 子 。 
四 、 子 函数 程序 (文件 名 :poisson', c) 


并 includqe "uniformec” 
并 include ”math. hr 
int poissonftlambdas) 
doub[e labmbdays 
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long int 兰 8 
{ ipt ixf double ab ui 
dotible uniformfty; 


a 一 expf 一 larmbdays 


1 一 间 
hh 一 1.0; 
do 
fu 一 uniform(0.0,1.0ys); 
b #* 一 Li 
[十 十 : 
while (hb 盖 一 4); 
和 一 1 一 ]; 


FetUITTIX》; 


五 、 例 题 


产生 50 个 均值 人 =4 的 泊 松 分 布 的 随机 数 。 
主 函 数 程序 (文件 名 :Poijsson. m) 
并 include ”srdie. hy 
井 jnclude ”Poisson, cy” 
main(y) 
fint ij xy long int si 
double ns 
int bin07， 
Rn 一 4.08 s 一 13579; 
for 如 一 0 10ii 十 十 》 
{ for 人 一 09j<5 生 十 十 ) 
《 X 一 boisson fn Brs); 
Printfk7 9 11dw xy); 


} 
Printff nr 1 
} 
和 运行 结果 : 

12 二 2 5 
6 1 6 3 
3 了 二 1 
1 1 5 5 
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1.14 ARMA(Cz,) 模 型 数据 的 产生 


一 、 功 能 
产生 自 回 妇 滑 动 平均 模型 4RM4(z,97 的 数据 。 
二 、 方 法 简介 
自 回归 滑动 平均 模型 ARMAC， g) 为 
za 十 czo- 门 一 oo 一 浊 


其 中 全 台 一 1，2， ., 放 是 自 回归 系数 ， 玉 他 一 0 1 ,0) 是 滑动 平均 系数 ， ma) 是 白 虽 


= 
六 


给 定 白 噪 声 人 az) 的 均值 和 方差 ， 便 可 以 由 上 式 产生 ARMA(zp,) 的 数据 。 
、 使 用 说 明 


1 子 范 数 语 名 
void armakashb :pqgymeanysigtmnaysSeedyxyny) 
2， 形 参 说 明 


a 一 一 双 精 度 实 型 一 组 数组 ， 长 度 为 人 十 1)，ARMA(P ,g) 模 型 的 自 回 归 系 数 。 
b - 一 双 精 度 实 型 一 组 数组 ， 长 度 为 (q 十 1)，ARMA Gp ,q) 模 型 的 请 动 平均 系数 。 
和 一 一 整 型 变量 。ARMACP ,qd 模型 的 自 回 归 阶 数 。 

aq 一 一 整 型 变量 。ARMA (p,q) 模 型 的 滑动 平均 阶 数 。 

双 精 庆 实 型 变量 .产生 白 声 所 用 的 正 态 分 布 的 均值 请 。 

双 精 度 实 型 变量 。 产 生 白 噪声 所 用 的 正 态 分 布 的 均 方 差 e， 

see 寻 长 整 型 指针 变 基 。 * seed 为 随机 数 的 种 子 。 

x 一 一 双 精 度 实 型 一 组 数组 ， 长 度 为 n。 存 放 ARMA(p,q) 模 型 的 数据 。 

na 一 一 整 型 变量 。ARMA(Pp,q) 模 型 数据 的 长 度 。 


四 、 子 孙 数 程序 (文件 名 :armac) 


共 include *std]lib, hy 





IO 





sigina 
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共 inelude ”gsatss. ge” 


void armafayb,py*qymeanysigma yseed xny) 
int nypyq 
1on 人 关 Seedi 


douphle meanvsigrmayalL jb[ ,xi 


{ int iykyms 

double sy， 关 丁 # 
W 一 imallocftn xsizeoffdoubhle)); 
for 储 一 KE<nik 十 十 ) 

{ wLEJ 一 gaussfKmeanysigmayseed); ) 
xL9] 一 blLoj x wi0]; 
for 全 一 15K< 一 bb 十 十 ) 

{s 一 0.0; 

for 0G 王 15i<c 一 :1 十 十 ) 





让 (qd 一 一 0 
{ XLK] 一 s; 
cGntlnues 


mm 一 (人 攻 人 q)239: ki 
for 避 一 15i< 一 各 和 十 十 ) 
4 s 十 一 bx< 殉 [一 训 ， 


xX[KE， 一 si 





1 
了 


for 全 一 人 PP 十 17ik<nisk 十 十 ) 
{1s 一 0 
for 和 一 1 和 之 一 PP 革 十 十 》 
{1s 十 一 at]xx[ 一 和 》 
S 一 bLD# 证 [KE] 一 si 


这 《aa 一 一 0) 
{x[k] = s; 
COntinmtle 

} 


fpzr 和 一 1 所 一 qi 十 十 ) 
{s 十 一 昌 [Li 训 关 下 一 可 
x[k 一 ; 








freeCw)i 


】} 
五 . 例 题 
ARMA(2,2)7 模 型 为 


区 ( 玫 》 十 1. 457( 开 一 ) 十 站 67( 开 一 2》 一 辆 人才 ) 一 02to()》 一 各 1ref( 开 》 
其 中 思 声 ) 是 均值 为 和、 均 方 盖 为 0.5 的 高 斯 白 噪 声 。 产 生 200 个 数据 ,并 将 其 在 于 数据 文 
件 arina.tat 中 ， 
主 函 数 程 序 ( 文 件 名 :arma, my) 
间 include "stdio. hy 
并 include ”artma,c” 
tnainf) 
{ int 1 是 7Dyqi 
lceng seed: 
doubie meanysigma yx[200]; 
static double a[3] 一 11,0，1.45，D0. 6 
static double b[L3] 一 1.0， 一 0.2， 一 站，} 


FILE > 吉 p; 
了 一 200; 
了 一 

Q 一 忆 


seed 一 13579] ; 

Imneanm 一 月 ,日 ; 

SiErmaa 一 站 5; 
artmatasbypqymeanysigrmasyerseed xys 
for 《一 0yi<<323i 十 一 4) 


{ Printt(? 0%610.7] 交 10. 7L 人 ex[ 训 ,xxLi 十 1 
BDIintfg” 吧 10.7 寺 咯 10.71f xi 二 2] ,xx 十 3]); 
Printfgw sn 

》 


包 一 fopengartma daty wy; 
for ki 一 0Oii<cnii 二 十 ) 
fprintfKfp ”5%d 是 Hn7 ixLil3; 


floseffp); 
} 
ARMA 模型 的 前 32 个 数据 为 
1. 4498606 一 2.8466986 3. 3057938 一 3. 1889663 
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2.2301953 一 个 .8&225244 一 0 6701739 -5 和 42167 


一 2. 7626373 3. 3902617 一 3. 3722200 3.4870302 
一 .人 27288f 4 115927 台 一 本 . 了 3 本 57 昌 2 由 .2331519 
一 2. 1655715 0. 1262312 1.7224958 一 2.5873058 
2. 3757229 一 2.6513840 2.0335784 一 2.0534403 . 
2. 5926021 一 2. 3975581 1. 3792284 一 0.7011795 
0. 1413254 0. 4951895 一 1.0376567 1.1682870 
200 点 ARMA{ 人 2 2) 数 据 如 图 1 一 1 一 1 所 示 。 
后 


相 








5 ”110 ”1 区” ”20 
样本 序号 


图 1 一 1--1 ARMA(2 2) 模 列 的 训 列 


8$1.15 含有 高 斯 各 噪声 的 正弦 组 合 信号 的 产生 


一 功 能 
产生 售 有 高 斯 自 噪 声 的 正弦 组 合 信 和 号。 
二 、 方 法 简介 
售 有 高 斯 自 噪 声 的 时 个 正弦 傅 号 的 组 合 为 
(R) 一 4 sinf2r 六 4 十 有 十 IO) 


其 中 4 广 和 AiG=1,2, MD) 分 别 是 第 ; 个 正 怠 信号 的 振幅 ,频率 和 相位 。4T--1/ 户 ， 
AT 是 采样 间隔 /是 采样 舌 率 (以 赫兹 为 单位 ) ,NM(0,o) 是 高 斯 白 噪 声 , 它 的 均值 为 地， 
方差 为 呈 。 


三 、 使 用 说 明 


1， 子 函数 语句 


void sinwmntast phymyfs:sntryseed xya) 
30 


2， 形 参 说 明 


a 一 一 双 精 度 宰 型 一 组 数组 ， 长 度 为 mm。 各 正 张 展 号 的 振幅 。 
f 一 一 双 精 度 实 型 一 组 数组 ， 长 度 为 站 。 各 正 荡 信 号 的 频率 。 


ph 一 一 双 精 度 实 型 一 组 数组 ， 长 度 为 四 。 各 正弦 信 叶 的 相位 。 


m 一 一 整 型 变量 。 正弦 信号 的 个 数 ， 

本 双 精 度 实 型 变量 。 采 样 频率 (用 赫兹 表示 )。 

snr ~ 一 双 精 度 实 型 变量 。 信 了 品 比 (用 dB 表亲) 。 

seed 一 一 长 整 型 变量 。 随 机 数 的 种 子 。 

x -一 又 精度 实 型 一 组 数组 ， 长 度 为 an。 存 放 所 产生 的 数据 。 
na 一 一 整 型 变量 。 数 据 长 度 。 


四 、 子 责 数 程序 (文件 名 :sinwn. ec) 


并 include "pmath.h2 


林 include ”gauss, cr 








void sinwn(ka fphymy 和 ,snryseed xD) 
int 所 D3 
long seed; 
double 后 ,snrya[],f[],phF],x 训 ]; 
{ inti ki 

double zy piynsIi 

pi 一 4.0xatan(1.0)) 

z 一 snrA10.0; 

z 一 powf10.0,z)j 

zs 一 1.07A(2xZ)， 

DasT 一 Sqtrt(27? 

fer 1=05i<tmtii 十 十 》 

《fi 一 2 关 匡 关 fij/tss 
ph[i 让 一 ph[Lij * pi/180. 0; 


} 
for (长 一 OKE<n 让 十 十 ) 
{x[k] 一 0.0i 


fceT 0 一 Dyi<mii 十 十 } 

{ x[k] 一 x[k] 十 a[i*sinGksf[i] 十 phri]y，} 
X[k] 一 x[k] 十 nsr xs gauss(0.0,1.0,Rseed)i 
} 
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五 、 例 题 











例 1: 单 正 弥 信 号 的 皇 幅 为 1， 频率 为 5 Hz， 相 位 为 45 度 ， 无 噪声 干扰 。 产 生 200 
个 数据 ， 并 将 其 存 十 数据 文件 sinwnl. dat 中 。 
主 责 数 程 序 ( 文 件 名 :sinwnl, my) : 

熙 ipelude ”stdio. h" 


林 include ”sinwmne en 





mainf ) 

1 int lymyny 
long seed; 
double fa ,snryxL200]; 
static doubte a[Ll 一 11 
static double 夺 ]] 一 15 1 
static double ph[L1j 一 1 45 3》 
FILE * fp; 
m 一 1 

一 200; 

seed = 一 135791; 
fs 一 1503 
Sntr 一 1000. 
sinwrnkafy phsnyfssnryseed Xen)i 
printttrsn Single Sinusoidal Signalvn7 ) 
[er 昌 一 bii<320 十 十) 

关 10. 91 ,x[i)， 

让 Cio4 一 一 3) printfCowney 

》 

名 一 fopentsinwnl, dat" ww” 

for 0 一 0ii<nii 十 十 ) 
1 fpPrintfCfp ,” 叹 3d 


-一 


{ PrintfCe 


及 12.7lfmn isxLi])y， 


flosc fp7， 
} 
运行 结果 : 
正 张 信号 的 前 32 个 数据 为 
吕 . 了 D71068 0. 83806706 0 9335804 0 9876g883 
0. 9986295 1. 88659258 0.8910065 人 797 有 站 
,6293204 0. 4a39905 0 2588190 0 be23360 
一 避 . 1564345 一 0 35 如 3 了 得 一 昌 ，5 相 本 FE39 一 0 了 DO71O68 
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一 中 8386706 


9335804 


一 履 . 9876883 


一 站 .生日 86295 





要 





一 各 965925 六 一 个 8910085 一 0.7771460 一 0 8293204 


一 0.4539905 一 0.2588190 一 0.0523360 
0. 3583679 0.5446390 0. 7071068 
200 点 正 弱 信和 号 如 图 1 一 1 一 2 所 示 。 


9 欧 100 150 2 
拌 本 序号 


图 1--1--2 正 莹 序列 


人 1564343 
0 8386706 


例 2 三 个 正 纺 信 号 的 因 幅 汶 一 由: 一 4 一 1， 频率 为 万 一 10， 六 一 17， 太一 50， 相 
位 为 品 =45 度 ,2&=10 度 ,2 一 88 度 ,采样 频 亭 为 150 Hz。 该 正 芝 组 合 信号 受到 高 斯 白 
噪声 N(0:o? 的 干扰 , 信 噪 比 SNR = 5dB.。 产 生 200 个 数据 , 并 将 其 存 于 数据 文件 sin- 


wn2, dat 中 。 
主 尖 数 程序 (文件 名 :sinwn2.m)， 
并 inecluqe ”stdio. hx 
##inelude "sinwmneecy 
， mainf 》 
1 int jymynyj 
long seed ; 
double isnr,x[L200]; 
static doubte a[3] 一 1 1，1 5 
static double 蕊 3] 一 110，17，50}5 
static double bph[L3] 一 145，10，881; 
KEILE # 了 p; 
m 一 3; 
mi 一 200# 
seed 一 1357 踢 ; 
fs 一 1503 
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smntr 一 虽 , 0; 
SinwrnraTphym fsntrySeegd 其) 
printf (sn Three Sinusoidal Signals plus Gauss 而 hite Noisevny )1 
for 和 一 Dri< 32 和 一 寺 ) 

{ ptintfig2 0 有 Li] 7 

计 【 1i 邮 4 一 一 3 hrintttwny 7 

} 
fp 一 fopea(esinwn2。 日 at ww 
for (一 00<n5ii 十 十 ) 

tt rintfftp 站 3d 色 12. 7Lfnw iiyx[i])5) 





felosetfip); 
} 
运行 结果 ， 
含有 高 斯 白 噪 声 的 正弦 组 合 信和 号 前 32 个 数据 为 
3. 0331775 0. 8776595 1. 5495155 2. 526574? 
一 0.0604063 一 0. 5123042 一 0. 5143918 一 1.8987897 
一 2.5321971 0. 4085494 一 0.7340470 0. 1641256 
0.7745283 0.1492174 一 1. 5032762 0. 5202461 
0,. 4170906 一 0.0514435 2. 8173778 1.1355277 
0. 4828501 1. 2294239 一 0. 8140043 -一 2. 3329036 
一 0. 3340085 一 1. 9891476 一 1 7898424 0. 9148312 
0. 3301306 0. 9340795 1. 98528389 0. 1642199 
200 点 含有 高 斯 白 噪 声 的 正弦 组 会 信号 如 图 1 一 1 一 3 所 示 。 
4.0 
2.0 有 
0.0 和 
0 5 190 7 是 300 
样本 序 叶 


图 1 一 1 一 3 含有 高 斯 白 噪 声 的 正 嘴 上 毕 合 序列 
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8$ 1.16 解析 信号 的 产生 


一 、 切 能 
用 快速 傅 立 时 变换 技术 产生 解析 信号 。 
二 、 方 法 简介 


实 信和 叶 zt) 的 解析 信号 可 表示 为 
Ra) 一 工 (P) 十 了 CN 
其 中 zeo) 是 fm) 的 离散 希 尔 伯 特 变换 ， 它 可 用 下 式 来 表示 
元 (了 )》 一 到 (ma) 关 丙 (了 2)》 
这 里 Goz? 是 希 尔 伯 特 变 换 的 单位 冲 激 响 应 ， 即 





DO， ?一 总 
设 信 号 x(a) 的 频谱 为 和 Co, 解析 信号 *( 的 频谱 为 Za), 则 有 


人 ， 他 
到 (的 ) 一 4 次 (的 ) ， 名 一 0 
站 和 锯 挟 0 


因此 ,计算 解析 信号 的 步骤 如 下 ， 
1. 计算 ze 的 六 点 FFT, 得 到 互 ( 全 二 01 一 1)。 


2. 构造 Z(8) 
人 ， 下 一 修 
( 珊 ] 一 22 瑟 《是 》 天 一 12 一 1 
0 ， 其 它 
3. 计算 Z0) 的 快速 倩 立时 反 变 换 , 从 而 得 到 解析 信号 zcn) 。 
三 、 情 用 说 明 
1， 子 函数 语句 


Yo 这 analytickx ,ysn) 
2， 形 参 说 明 


x 一 一 双 精 度 实 型 一 维 数组 ,， 长度 为 nm。 开始 时 存放 实数 输入 信和 号, 最 后 存放 解析 
信号 的 实 部 (实际 上 , 它 没有 变化 ,与 原来 完全 相同 ) 。 

y 一 一 双 精 度 实 型 一 维 数 组 ， 长 度 为 nn。 存 放 解 析 信 号 的 虚 部 。 

n 一 一 鉴 型 变量 。 数 据 长 度 ， 必 须 是 2 的 整数 次 黎 ， 即 an 一 2。 
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四 、 子 函数 程序 (文件 名 :analytic,ec) 


夫 jineclude "fit en 
void analyticfxysny) 
int 旦 } 
deuble x[],y[]; 
(int 1*nl15 
nl 一 nj/2， 
for G 一 0;i<nil 十 十 ) 
{y[ 订 一 005》 
ft 人 xyyyns 23 
forgi 一 1ii<nlii 二 十 ) 
{ xD 一 2xx[Lils 
y[ 一 2*y[; 
} 
for 昌 王 nlii<cnii 十 十 
{ xi 一 0.0; 
y[i 一 0.03 
} 
人 EtCxyyeny 一 17; 
} 


五 、 本 题 
设 序列 z() 为 


zf 一 Singerra) 民 一 0,1， 


它 的 希 尔 伯 特 变换 为 


(站 一 一 cosf2mtA) 一 0 1 下 一 工 


国 此 ， xz 的 解析 信号 为 


gf 人) 一 Sinf2rzja) 一 了 cosf21A7R) 一 0 1 
计算 序列 GD 的 解析 信和 号 xGi) ,并 与 理想 值 进行 比 较 。 


主 表 数 程序 (文件 名 :analytic. mm): 

并 inelude "stdio, hy 

林 include “math. h" 

打 jnclude "analytic c" 

tnain(D) 

1 int iyny; 
double x[64],yf864],z[6431; 
void analytic( 7 ; 
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有 一 上 








n 一 64; 
for 如一 0i<cnaii 十 十 ) 
{ xf 可 一 sin 人 2x3,.14159265 +imn)i ， 
printf( sa Driginal Signalvn" 7; 
for 如 二 03i<cny2ii 十 一 4) 


{ PrintECe 910, 了 610. 7 和 xb xi 十 1])3 
printf(Cy %z10. 守 吕 10.7fsn2 ,x[i 十 2],x[Li 十 3])3 
} 


for 各 一 0yi<nii 十 十 ) 

{ zf] 一 一 cos(2x# 3,.14159265 xinyf } 
Printt( sn Ideal Disetrete Hilbert Transformsny yy 
for 6 一 Dii<<n728 十 一 4) 


人 Printft 工 7 of 10. 7 昕 10.7f” ,zi],z[i 十 1]73 
Printffy 210. 于 10.7fsvnv ,zLi 十 2],z[i 十 3]); 
} 
analyticCxyy， 刀 )， 


printf" An Real Part of Analytic Signalvo” 3 
for 悍 一 03i<nA2ii 十 一 4 


{ DrintfCw 听 10. 于 0h6T1D0.7 生 Xi,xLi 十 1 
Printf (7 听 10. 叶 10, 7fsmw ,xi 十 2 ,xi 十 3])) 
} 


Prinatt (ra Itmaginaty Part of Analytic Signabsvn”) 4 
for 〔〈i 一 Dii<mnyA2ii 十 一 4) 


{ Printf(m 星 10, ? 听 10.7f yyLi 十 1 
printf Cy 中 10. 7 %10.7fa" 7yLi 十 2],7D 二 3])3 

} 

运行 结果 ; 

原始 信 生 rz) 前 32 个 数据 ) 
, 0000000 0. 0980171 0. 1950903 吕 . 2902847 
0. 3826834 ,4713967 0,. 5555702 0 6343933 
0.7071068 0 7730105 0 831469 和 6 0 8819213 
D, 9238795 0,9569403 站 日 8 站 7 有 呈 3 .9851847 
1. 0000000 0 9951847 人 9807853 0.9569403 
0. 9238795 吕 8819213 0,. 8314696 0 7730105 
0 7071068 0, 6343933 0. 5555702 D, 4713967 
避 3826834 DO 2902847 0, 1950903 0.0980171 


序列 rzG) 的 理想 希 尔 伯 特 变换 (前 32 个 数据 》 


一 1.0000000 一 0 
一 0. 9238795 一 0 
一 0. 7071068 一 0 
一 0.3826834 一 0 
一 0. 0000000 0， 
0. 3826834 0 
0.7071068 0 
0. 9238795 0. 
解析 信号 的 实 部 (前 32 个 数据 ) 
一 0.0000000 8 
0. 3826834 0 
0.7071068 0 
0. 9238795 0 

1. 000000 0， 

0. 9238795 0 
0. 7071068 0 
0. 3826834 0 
解析 信号 的 虑 部 (前 32 个 数据 ) 
一 1. 0000000 一 由. 
一 0. 9238795 一 0 
一 0.7071068 一 0 
一 0 3826834 一 0 
一 0.0000000 0. 
0. 3826834 0. 

0. 7071068 0， 

0. 9238795 @ 
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995847 


88819213 
,6343933 
. 2902847 


0980171 


-4713967 
,7730105 


9569403 


“ 05980171 
.44713967 
“7730105 
-9569403 


9951847 


.8819213 
6343933 
2902847 


9951847 


， 88819213 
“6343933 
,29802847 


0980191 
4713967 
7730105 


. 89569403 


叫 


.9807853 
.8314696 
.5555702 
“ 1950903 


1950903 


.5555702 
.8314696 
.9807853 


“1950903 
,5555702 
.8314696 


9807853 
9807853 
8314698 


“ 5555702 
-1950903 


9807853 
8314696 
.5555702 
“ 1950903 
. 1950903 
“955702 
-8314698 
. 9807853 


一 站 
一 站 
一 修 . 
一 避 ， 

0 


| 
必 


安 吕 PP 


9569403 
7730105 
4713967 
098D171 
2902847 


0. 86343933 
0， 
,9951847 


8819213 


293902847 
.60343933 
,3819213 


9951847 
39569403 
7730105 
4713967 
0980t91 


.9569403 
一 站 


7730105 
4713967 
0980171 
2902847 


“6343933 
.88819213 
.9951847 


第 二 篇 ”数字 信号 处 理 
第 一 章 ”快速 傅立叶 变换 
8 1.1 离散 传 立 叶 变换 


一 、 功 能 

计算 复 序列 的 离散 傅立叶 变换 (DFT) 和 离散 傅立叶 反 变换 (IDFT) 
二 、 方 法 简介 

序列 z(aCa=0,1……N 一 1 的 离散 傅立叶 变换 定 立 为 


N_1 
和 (一 Diz OO ee- 各 


设 zta) 一 &Cn) 十 了 BC》 囊 ( 开 ) 一 人 4 人形 ) 十 了 吾 () 一 2rAV ， 则 上 式 变 为 


如一】 


4 人 RD) 十 了 B(&) 一 >)[a(m) 十 7600][cos(Qnpt) 一 jsin(QnR)- 
即 
4( 有 一 [a(a)cos(QE) 十 5(0rsin(QR 
吾 { 开 ) 一 CCoDcos(Qo) 一 (Sinfeog) 
序列 和 ( 有 的 离散 傅立叶 反 变 换 定 义 为 


站 一 1 
xD 一 方 仑 :和 CE xz 一 0，1，…，N 一 1 


它 与 离散 傅立叶 正 变换 的 区 别 在 于 将 多 x 改 变 为 研 51， 并 多 了 一 个 除 以 Ar 的 运算 。 计 算 
公式 如 下 : 
一 1 
ea 一 方 人 :Ch4(bDeos (Qn 有 )》 一 下 (有 sin (Qn 
目 一 1 
5 (on) -六 之 : [B (有 E) cos (QnmE) 十 4 (CE sin (Qa 有 )， 
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三 、 使 用 说 明 


1， 子 国 数 语句 
TOE 二 全 产 Kx 全 9 已， 于 于 闻 7) 


2， 形 参 说 明 
z 一 一 双 精 度 实 型 一 维 数组 ， 长 度 为 *”。 存 放 要 变换 数据 的 实 部 。 
? 一 一 双 精 度 实 型 一 维 数 组 ， 长 度 为 。 存 放 要 变换 数据 的 虚 部 。 
@ 双 精 度 实 型 一 维 数组 ， 长 度 为 。 存 放 变 换 结果 的 实 部 。 
一 一 双 精 度 实 型 一 维 数组 ， 长 度 为 =。 存放 变换 结果 的 虚 部 。 
2 一 整 型 变量 。 数 据 长 度 。 
str - 整 型 变量 。 当 sign=1 时 ， 子 函数 < 产 O 计 算 离散 傅立叶 正 变换 ; 当 sg 一 
一 1 时 , 子 函 数 d 玉 计算 离散 傅立叶 反 变 换 。 


四 、 子 函数 程序 (文件 名 :d 天 ,ec) 


并 clside ”ect 下 页" 


0 过 让 (SEED) 








FE 玫 931 史 天 
Coupe ZL josat 站 ji 
人 
OUEBIE Ce y35 
了 一 6.28318530718/oi 
or (一 05R<m 3 到 十 十 》 
人 一 
a[] 一 下 有] 一 0.0; 
For 人 一 Di<ci 十 十 } 
《三 一 了 
CE 一 cosfE)y 
5 一 StK 人 ) 关于 8 
[有 ] 十 一 《xx 苹 [让 十 了 #3[]; 
引 ] 十 一 cx#3[ 人 一 sx<YLi]i 
} 
} 
if《st89 一 一 一 1 ) 
(ce 一 1 07zas 
Jr (天 一 DR<CN 是 十 十 ) 
te 一 exe[R]; 
40 








吾 [ 二 一 5 基本 [ 玫 ]; 
} 


} 


五 、 例 题 
设 葵 入 序列 rz) 为 地 (人 一 全 ， 1i 一 01 一] 


-一 全 二 01 一 
其 离 胡 传 立 叶 变 换 为 X( 妇 二 [一 6， 一 0 1 1 


这 里 本 = se 过 。 选取 Q@= 0. 9 十 1 0. 3 一 32 ,计算 x(t) 的 离散 生 立 叶 变 换 入 ( 克 和 忆 () 
的 离散 傅立叶 反 变 换 zc 并 与 理论 值 进 行 比较 。 
主 邯 数 程序 (文件 名 :dft,m): 
林 include "math, ha 
站 include ”qdqft. cy 
maint > 
{ int ij mn 
double al,a2ycyelye2,dlyd2,q1;q2ywywlyw2 
double xL32],yL32],aL32],bL32]; 
一 32 
al 一 0. 9j 
a2 一 0. 34 
xLo] 一 1.0i 
yEL0] 一 0.0; 
for fi 王 lyic<nji 十 十 》 
{xfi] 一 alxx[i 一 1 一 a2xy 一 1 
y 生 ] 一 a2xxLi 一 1] 十 alxy[ 一 1 ]; 
} 
Printf (An Original SeqtuenceNny 
for (Ci 一 0Oyi<nA24 十 十 ) 
{ for 和 一 05<25 十 十 ) 
Print 站 10. 下 丁丁 嗓 10.7 天 sxL2 xi 十 门 ;yy[2x<i 十 和 ?3 
Printi( sn ); 
} 
ql 一 xn 一 1 
q2 = y[n 一 1]; 
ditkxyyyasbyny1); 
brintf (rn Discrete Fourier Transformny 7) 
foer fi 一 0ii<mnA2ii 十 十 ) 
首 1 





4{ for 与 一 05j<25 十 十 ) 
BiintftC” 
PrtintiC"smnw yi 


1 
了 


for 【iD nii 十 十 ) 

1 一 28318530718An * 1 
古 1 一 5DSTm3 
w2 一 一 sinfw); 
cl 一 1.0 一 al1#WW1 十 有 2 关 邮 2; 
c2 一 alxw2 十 a2xwl 
C 一 CExel 十 ec2 共 Ci 
dl1 一 10 一 axQl 十 82< 吕 2 
惕 2 一 al 并 日 2 十 82 关 中 1 
xf 一 (Celxdl 十 ec2xd2)7ci 
y[] 一 《ce2 xdl 一 对 关 有 27Aci 

} 


printffwwn Theoretical JJiscrete Fourier Transfotrmsn” ) 


for (一 03i<cn725 十 十 ) 
《for 避 一 各 5j<2 和 十 十 》 
Printf 7 510. 7 
brintftf ny 7 
} 
dittasbyxsyyn' 一 1)3 
Printffsn Inverse Discrete Fourier Transformn” ) ; 
forf (一 0ii<<n/23;i 十 十 ) 
ftor 人 一 035j< 2 十 十 ) 


十 ] 


bzrintfttw 上 10.9f 十 
Printfe ny 7 
j 
运行 结 
输入 序列 rzG) (人 一 0 1 31) 


1.0000o0o00 十 j 日 ,DODDDOD D 900D000 
0.7200000 十 本 0.5400000 0. 4860000 
0.2268000 十 本 0.7776000 一 0.0291600 
0.2566080 十 0.6823440 一 0.4356504 
一 0.5532235 十 了 0.3527194 一 0. 6037170 
一 0.5887894 十 丁 一 0.0447828 一 0. 5164756 





十 j 
十 
十 了 
十 可 
十 了 
十 了 


上 10. 了 十 本 阁 19.7 玉 ，a[2<i 十 说 ,blL2 xi 十 和 


昕 10. 7 ,x[2 i 十 jsyEL2x<i 十 门 )3 


叫 10. 7 和 [2 < 十 站 ,7L2xi 十 说 7; 


0. 3000000 
0. 7020000 
0. 7678800 
0. 5371272 
0. 15148904 
一 仿 2169413 


一 0.3997457 十 本 一 修 3501899 一 0. 2547141 
一 0.0987ji44 十 丁 一 0.4679994 0. 0515569 
0. 1816453 十 本 一 0.3902653 0. 2805604 
0. 3415279 十 本 一 0.1829025 0. 3622459 
0. 3446674 十 了 0.0527352 0. 2943801 
0. 2196835 十 本 0 2240898 0. 1304882 
0,.0371637 十 】 0. 2799738 一 0. 0505448 
一 0.1244280 十 本 0. 2216495 一 0. 1784800 
一 0 2092789 十 】 0.0923965 一 0. 2160699 
一 0.2005749 十 本 一 0.0464851 一 0. 1665719 

xi 的 离散 傅立叶 变换 美 ()( 一 D,1,31) 为 
0.6939728 十 本 3.4997157 2. ?7922679 
9. 4029646 十 丁 一 9.1350136 1. 8664455 
1.1318227 十 本 一 2.2341573 0. 9047939 
0. 7995572 十 了 一 1.1396094 0. 7396056 
0,.7008616 十 一 和.6985854 0, 6735758 
0. 6531094 十 了 一 站 4462450 0. 6369913 
0. 6237884 十 本 一 02720860 0, 6126129 
0.6028833 十 了 一 和 1357032 0. 5942004 
0.5862775 十 本 一 0.0179492 0. 5788996 
0, 5718985 十 丁 0, 0926070 0. 5651358 
0.5584921 十 】 0. 2048808 0, 5518591 
0.5451336 十 ] 0 3283649 0. 5382144 
0.5310015 十 ] 0.4766778 0. 5234037 
0.5153625 十 本 0,. 6748500 0. 5069258 
0.4984670 十 本 0.9809063 0. 4913894 
0. 4907322 十 】 1.5770820 0. 5173544 

xD 的 离散 傅立叶 变换 和 CD)(E 一 0,1…y*31) 的 理论 值 为 
0- 6939728 十 了 3.4997157? 2. 7922679 
9.4029646 十 丁 一 9.1350136 1. 8664455 
1.1318227 十 本 一 2.2341573 0. 9047939 
0. 7995572 十 了 一 1.1396094 0. 9396056 
0.7008616 十 丁 一 小 6985654 0, 6735758 
0.6531094 十 了 一 0.4462450 0. 6369913 
0. 6237884 十 一 0.2720860 0. 6126129 
0. 6028833 十 丁 一 0.1357032 0. 5942004 
0.5862775 十 本 一 0.0179492 0. 5788996 
0.5718985 十 】 0.0926070 0. 5651358 


十 
十 可 
十 可 
十 
十 可 
十 可 
十 可 
十 本 
十 本 
十 


十 J 
十 本 
十 j 
十 可 
十 J 
十 了 
十 了 
十 了 
十 了 
十 了 
十 了 
十 本 
十 可 
十 村 
十 可 
十 可 


十 可 
十 可 
十 可 
十 可 
十 了 
十 可 
十 可 
十 j 
十 可 
十 可 


人 


一 外 ， 


ko 


4350946 
4508137 
3967452 
,0621539 


1508619 
28675859 
2631255 
1621561 
0203732 


.1020091 


,0504559 
一己， 


8338328 
5346293 


8823144 
， 5584785 
. 3526891 
2006419 
0753]37 
.0376517 
,479833 
2645222 
.3982571 
00673323 
808i015 
.2192074 
,1888329 


.0504557 
.83383285 
5346293 
.8823144 
“5584785 
,3526891 
2006419 
0753137 


0, 0376517 
0, 1479833 
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0,.5584921 十 j 站 20 本 8 人 8 0. 5518591 十 了 
避 . 5451336 一 站 328364 急 0.5382144 十 j 
0,.5310015 十 j 口 . 本 了 6 和 7 7 名 0. 5234037 十 了 J 
0.5153625 十 j 人 0. 67d48500 0. 5069258 十 j 
0. 4984670 十 了 站 .9 站 昌 昌 司 63 0D. 4913894 十 jj 
0.4907322 十 j 1 .577 避 820 0.5173540 十 J 
X(R 的 离散 傅立叶 反 变 换 xz) G 一 0 31)? 六 
1.0000000 十 j 0, Do0ooon 0.9000000 十 本 
0.7200000 十 了 总 540DOoDb 0. 4860000 十 J 
0.2268000 十 j 0.7776000 一 0.0291600 十 j 
一 0.2566080 十 JJ 0. 6823440 一 六 4356504 十 j 
一 0.5532235 十 口 . 3527 9 和 4 一 0 6037170 十 j 
一 0 5887894 十 一 0.0447828 ~ 5164756 十 J 
一 0. 3997457 十 一 0 3501899 一 避 2547141 十 可 
一 0.0987144 十 丁 一 0.4679994 0.0515569 直 了 
0. 1816453 十 本 一 站 3902653 0. 2805604 十 本 
0, 3415279 十 一 0.1829025 0.3622459 十 了 
0. 3446674 十 了 D,. 0527352 0.2943801 十 了 本 
0. 2196835 十 j 0. 2240898 0 1304882 十 本 
0.0371637 十 了 0.2799738 一 总 0505448 中 ] 
一 0 1244280 十 j 癌 . 221 人 495 -1784800 十 JJ 
一 站 2092789 十 本 0 923965 一 心 ,2160699 十 
一 0 2005749 十 J 一 0.0464851 一 0D. 1665719 十 本 
$1.2 快速 傅 立 时 变换 
一 、 功 能 
计算 复 序列 的 快速 傅立叶 变换 
一 、 方 法 简介 
序列 =(o7 的 离散 傅立叶 变换 为 
一 1 
和 (有 一 >>x(a) 了 1 必 ， 一 0 一 1 
为 一 由 
将 序列 ra) 按 序号 关 的 奇偶 分 成 两 组 ， 即 
Ge) 一 z(2 
TI 人 《 212 | ，- 0 1 
ea) 一 (2 十 1 2 


因此 ，zx( 的 傅立叶 变换 可 写成 为 


站 4 


ho 产 允 已 芝 


2645222 
.3982571 
5671323 
.8D81015 
2192074 
. 1888329 


. 3000000 
.7020000 
767gSN0O 
5371272 
,1514804 
2169413 
,4350946 
, 4508137 
,2967458 
-0621539 
.1508619 
.2675859 
.2631298 
.621581 
0D203732 
,1020091 





并 (有 ) 一 三 oo 十 Zoom 


查 一 全 


n 为 俑 数 n 为 奇数 


we- 


wz 一 1 
一 之 ZXC2 本 十 之 2 十 1 和 二 和 
- 2 十 这 Ta (DJTP 员 s 


击 此 可 得 总 级 ) 一 忆 | 《下 ) 十 全 生 宗 人) ， 玫 一 0D，1， 和 9 写 一 1 
式 中 
3 一 1 
有 (一 之 : 交合 
和 (的 一 >， (2 十 1 入。 
它们 分 别 是 ze) 和 二 om) 的 72 点 DFT。 上 上 面 的 推导 表明 ， 一 个 点 的 DFT 被 分 解 为 
两 个 /2 点 的 DET，, 这 两 个 RN/2 卜 的 DFT 又 可 台 成 为 一 个 点 的 DFT。 但 上 面 给 出 
的 公式 仅 能 得 到 各 (和 的 前 N72 点 的 值 ， 要 用 总 (和 和 各 0) 来 表达 和 0) 的 后 半 部 分 的 
值 ， 还 必须 运用 程 系数 多 的 周期 性 与 对 称 性 ， 即 
本 2 -一 王 侣 ， 全 六- 一 一 全 遍 

因此 ， 总 (8 匀 的 后 wy72 点 的 值 可 表示 为 


立 (十 立 》 一 马 (十 今 ) 十 由 主 。 C++ 今 ) 





7 
一 总 1 【 开 》 一 三 训 各， 【《 开 ) 9 六 一 癌 ， T 六 一 


通过 上 面 的 推导 可 以 看 出 ，N 点 的 DFT 可 以 分 解 为 两 个 WA2 点 的 DEFET, 每 个 NA 
点 的 DFT 又 可 以 分 解 为 两 个 六 /4 点 的 DFT。 依 此 类 推 ， 当 六 为 2 的 整数 次 冤 时 《〈 六 一 
2*) ， 由 于 每 分 解 一 次 降低 一 阶 客 次 ， 所 以 通过 af 次 的 分 解 ， 最 后 全 部 成 为 一 系列 2 点 
DFT 运算 。 以 上 就 是 按时 间 负 到 的 快速 博 立 叶 变换 (FFT)? 算 法 ， 

序列 居 (的 离散 傅立叶 反 变 换 为 


zz) 一 让 XCOwa ， 关 一 0 一 1 


它 与 离散 生 立 时 正 变换 的 区 别 在 于 将 全 v 改 变 为 太 z， 并 多 了 一 个 除 以 的 运算 。 因 为 
克 x 和 攀 玉 对 于 推导 按时 间 抽 到 的 快速 傅立叶 变换 算法 并 无 实质 性 区 别 ， 因 此 可 将 FFT 
和 快速 傅立叶 反 变 换 GEFT) 算 法 合并 在 同一 个 程序 中 。 


三 、 使 用 说 明 


1]， 子 函数 语句 


Yeid ftt(xyyy nsigrn) 


45 





2， 形 参 说 明 


x 一 一 双 靖 度 实 型 -一 维 数组 , 长 度 为 n。 开始 时 存放 要 变 热 数据 的 实 部 , 最 后 存放 
变换 结果 的 实 部 。 
y 一 一 双 精 度 实 型 一 维 数组 , 长 度 为 n。 开 始 时 存放 要 变换 数据 的 虚 部 , 最 后 存放 
变换 关 果 的 虑 部 。 
n 一 一 整 型 变量 ,数据 长 度 ， 必 须 是 2 的 整数 次 桥 ， 即 n 一 2 。 
sign 一 一 整 型 变量 . 当 sign=1 时 , 子 函 数 攻 人 计算 离散 傅 立 时 正 恋 换 (DFT); 当 
siga 一 一 时 ， 子 函数 区 人 计算 离散 傅立叶 反 变 和 拘 〈IDEFT ) 。 


共 inpelude ”math,. hy 

void ffTtCXysnysigny) 

int nysigni 

deouble xL],y[]; 

{ intij lmalyn2i 
dounble cyceleysysl,tytryti; 
for 人 一 1 一 15i<16 和 1 十 十 ) 

《1 
] 一 了 xj]; 
让 和 一 一 D) breaky 
} 
1 一 皇 一 5 
for 和 一 0 一 如 <nlii 十 十 》 
{t< jy》 
ft 一 X[D]; 
攻 一 y 人 了] 
xb] 一 x[i]s 
yD]j 一 yi; 
XLi] 一 tri 
y[] 一 ti 
} 
k 一 nyA23 
While(k < 0 十 17 》 
{j 一 j 一 攻 ; 
k 一 K72; 
j = ji 二 K 
486 


nhl 一 1; 
fcer (一 1< 一 mi 十 十 ) 
《nl 一 2xmnli; 
n2 一 nl172; 
e 一 3.14159265359Amn23 
CC 一].0; 
3 一 日 昌 


cl 一 cosfe); 

s] 一 一 Sighn xsimnCe)s 

for 人 =05j<n25 寺 十) 

{tor《i 一 jii<cnii 十 一 nl1》 
{K 一 1 十 mn2; 

tr 一 Cs#Xk] 一 sxy[k] 
攻 一 exylkj] 十 sxx[k]; 
X[k] 一 xD 一 tri 
y 引 ] 一 YL 一 妈 ; 





Xi- 一 Xx[ 训 十 tr; 
y[i 这 一 y[i 十 二 
二 一 


| 


民 CxCel 一 S#Ssli; 


3 一 tx#sl 十 S#eli 


} 
让 ( sign 一 一 一 1 ) 
{ for《i 一 05i<cnfii 十 十 ) 
{ x[ 刘 7 一 ni 
yi 7 一 ni 


} 


五 、 例 题 


设 输入 序列 zt) 为 
一人， E 一 01…)7 一 上 
其 离散 傅立叶 变换 为 





1 一 妨 - 





形 一 及 1 玉 一 工 


这 里 环 = e- 二 ,选取 人 =0.9 十 10.3,， 2 一 32， 计算 离散 博 立 叶 恋 搞 瑟 (8 和 离散 傅立叶 


反 变 换 zx(D ,并 和 理论 值 进行 比较 ， 
主 函 数 程 序 (文件 名 :fft, mm); 

站 include ”math hy 

开 inelude ?te” 


mainfD) 





fint ins 
double al,a2ecyclye2, dl1,d2,qlad2 wwlyw2; 
double x[L32],y[L32],a[L32],b[L32]; 
虽 一 32 
al 一 D. 9 
a2 一 ,3# 
x[L0] 一 1.0; 
yLDoj] 一 0.0; 
for 和 = 一 1ii<njii 十 十 ) 
{ xfPi] 一 al#xlLi 一 1] 一 a2xyLi 一 1 
7[i 让 一 a2xxDi 一 1] 十 alxyD 一 1]， 
} 
Printtt sn COMPLEX INPUT SEQUENCE )， 
for fi 一 0Oii<cny2ii 十 十 ) 
{ for 人 一 0i<2j 二 十) 
printff” 昕 10. 但 十 丁 昕 10.7f xzL3 xi 十 门 ,7[2 < 证 习 33 
PrimntfK nyw ?了 
} 
中 一 XLn 一 1]; 
q2 = yLn 一 145 
fofr 如 一 Di<nyi 十 十) 
tm 


古 ] 一 cebosfw); 


2 一 一 sinCw)， 

el 一 1 一 8ixwl 十 a2xwpi 

C2 一 3a1L1 关 mL 十 823WW1; 

c 一 Clxel 十 c2xrc2 

dl 一 1.0 一 alxql 十 a2xaq2i 

qd2 一 al#rq2 十 2xoli 

aij 一 (elxdl 十 ec2xqd2ypci 
48 
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b[i 让 一 (ec2xdl 一 elxd2)yci 
brintf(osn THEORETICAL DFTSnn )， 
for《i 一 03i<n725 十 十 ) 
{ for (jj 一 0D< 2 和 十 十 ) 
“Print 叹 10. 7 十 丁 电 10.7f，a[2si 十 和 ,bbL2xi 十 7; 
Printt (nr ); 
1 
fftfCxyyny1); 
printftr sn DISCRETE FOURIER TRANSFORM'n7 7) 
for fi 一 0ii<nA2il 十 十 》 
fftor 如 一 09<25 十 十 》 
ptintf” 的 10. 放 十 丁 昨 10.7 人 9 X[2#xi 十 门 ,y[2#i 十 )]); 
Printf (wy an > 
} 
tttxyymny -17》， 
Printft sn INVERSE DISCRETE PROURIER TRANSFORMYn2 ) 
for 6 一 DOii<ny2ii 十 十 ) 
{ for 人 一 0j< 2 二 十) 
printtC” 吧 10. 谋士 ] 只 10.7f” xf2 si 二 和,y[L2* 1 十 门 ); 
Ditintft sn2 


} 
运行 结 梁 为 : 
输入 序列 zi 为 
1. 0000000 十 本 0,. 0000000 0. 9000000 十 可 0. 3000000 
0.7200000 十 】 0 5400000 0. 4860000 十 可 0.7020000 
0. 2268000 十 本 0.7776000 一 0.0291600 十 本 0.7678800 
一 0.2566080 十 可 0. 6823440 一 心 4356504 十 了 0.5371272 
一 0 5532235 十 本 0,. 3527194 一 0. 6037170 十 了 0,.1514804 
一 0.5887894 十 丁 一 0.0447828 一 0.5164756 十 」 一 092169413 
一 0. 3997457 十 ] 一 0.3501899 一 D. 2547141 十 本 一 卜 4350948 


一 0. 0987144 十 本 一 避 4679994 0. 0515569 十 ] 一 0 4508137 
0. 1816453 十 了 一 0 3902653 0. 2805604 十 ] 一 0.2967452 
0,. 3415279 十 了 一 01829025 0. 3622459 十 可 一 小 0621539 
0. 3446674 十 了 0,. 0527352 0. 2943801 二 可 0 1508619 
0. 2196835 十 了 本 0. 2240898 0. 1304882 十 j ,2675859 
折 台 


.0371837 十 了 0.23799738 一 已 D505448 一 于 26312355 


< 


一 0， 
一 站 
一 站 . 


124428D0 
2092789 
2005749 


十 可 
士 了 
十 上 


。 
站 
一 属 。 


2216485 
0923965 
0464851 


一 0 1784800 
一 由 2160699 
一 0 1665719 


xi) 的 离散 傅立叶 变换 各 (RD) (一 0,1，……,31) 的 理论 值 为 


D. 
. 4029646 
1318227 
，7995572 
008616 
- 69531094 
,6237884 
8028833 
,95862775 
.5718985 
5584921 
:9451336 
.5310015 
“95153625 
984670 
,49807322 


5 


6939728 


士 了 于 
十 了 
士 了 
十 了 
士 了 
十 了 于 
十 于 
十 了 
十 了 
士 J 
十 了 
士 了 
十 可 
十 可 
十 本 
十 本 


3. 
一 9， 
一 2 
一 1， 
一 0， 
一 岂 
下 
一 中 
一 人 

O。 


定 PP 


4997157 
1350136 
2341973 
13960984 
6985654 
4462450 
2720860 
1357032 
0l179492 
0926070 
2048808 
328386489 
4766778 
6748500 
9809063 
85770820 


离散 傅立叶 变换 忌 (&) (一 0,1，… 31) 为 
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0 
. 40296486 
“1318227 
7999572 
“7008616 
- 6531094 
. 6237884 
6028833 
5862775 
“53718985 
“958384921 
5451336 
-5310015 
-5153625 
. 4984670 


光合 


6939728 


十 J 
十 J 
十 
十 j 
十 了 
十 
十 J 
十 了 
十 J 
士 J 
十 J 
十 J 
十 本 
十 于 


士 】 


3. 
一 9 
一 2， 
一 1 


0 
吕 ， 
0. 
- 
0 


4997157 
1350136 
2341573 
1396094 


.6985654 
, 4462450 
27208690 
.1357032 
,179492 


0926070 
2048808 
3283649 
4766778 
6748500 
5809063 


2. 
-664455 
. 9047939 
7396058 
66735758 
369913 
.126129 
5942004 
.5788998 
965135 吕 
“5518581 
5382144 
9234037 
. 50689258 
“4913894 
,173540 


二 


7922679 


7922679 
86644535 
9047939 


7396056 
673575 呈 
6369913 
6126129 
594200 和 4 
5788998 
5651358 
55185981 
5382144 
5234037 
5069258 


,4913894 


十 可 
十 J 








定名 


1621561 


203732 
了 020991 


“0504557 
8338328 
. 5346293 
8823144 
“5584785 
.3526891 
,2006419 
07583137 


0376517 
1479833 
264522 爷 


. 3982571 
, 5671323 
. 8081015 
.2192074 
. 1888329 


09504557 
.38338328 
5346293 
38823144 
- 5584785 
.3526891 
2006419 
.0753137 


0376517 
1479833 
3645222 
39825791 


5671323 
, 8081015 
-2192074 


.4907322 


十 j 1.5770820 


离散 傅立叶 反 恋 和 拘 ri 人 一 0,1,… 31) 为 


二 


式 中 


1.0000000 十 本 一 0.0000000 
0.7200000 十 本 0.5400000 
0. 2268000 十 丁 0.7776000 
一 0. 2566080 十 J 0.6823440 
一 0.5532235 十 了 0.3527194 
一 0.5887894 十 丁 一 0.0447828 
一 0. 3997457 十 本 一 洲 3501899 
一 0.0987144 十 本 一 0.4679994 
0.1816453 十 本 一 0.3902653 
0. 3415279 十 了 一 0.1829025 
0. 3446674 十 J 0.0527352 
0. 2196835 十 本 0.2240898 
0.0371637 十 本 0.2799738 
一 0.1244280 十 本 9.2216495 
一 0. 2092789 十 了 总 .0D923965 
一 0. 2005749 十 了 一 0.0464851 
一 、 功 能 
计算 复 序列 的 基 4 快速 傅立叶 变换 
二 、 方 法 简介 
序列 >(a) 的 离散 傅立叶 变换 为 








一 
一 0. 
一 已 


. 5173540 


9000000 
360000 
,0291600 
,43865904 
,6037170 
5184756 
.2547]41 
,0515569 
2805604 


3622459 


. 2943801 


1304882 


05305448 


1784800 
21606998 
1665719 


十 j 








8$1.3 基 4 快 速 傅立叶 变换 


冲 一 1 
X (多 = > yz0D0W%， 一 0 一 1 


邓 四 症 


Mo 


.18888328 


0. 3000000 
0.7020000 
0.7678800 
0. 5371272 
0. 1514804 
一 0. 2169413 
一 0. 4350946 
一 0. 4508137 
一 0.2967452 
一 0.0621539 
0.1508619 
0, 2675859 
0. 2631255 
0.1621561 

D.0203732 
一 0.1020091 


若 闵 一生, 则 类 序 列 ze 分 成 四 个 WA4 点 的 序列 may za za) ziGyCn 一 0， 


“Ad4 一 1), 即 


世 《Ma 一 4 《2z)》 十 za (3a) 十 Ta (Ca 十 zy 《2 
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卫 改 天》 一 


工 3) 一 


辽 扩 )》 一 





工 氏 天】 一 


把 zftm 代 入 DFT 的 表达 式 中 ， 刚 有 


五 /4 一 | 

和 (有 ) 一 六 CeziGo) 友 
卫 一 用 
全 一 上 


【7 一 0 NA 一 1) 


全 ( 担 ) 


如 [了 十 全 ) 于 《于 一 0 1 1) 
zz 十 全) (二 04 一 1) 
ze 十 20) (01 一 1) 

















十 定 请 作 亲 十 (将 Y 十 7 人 


一 人 [zi 十 za 人 (本 澡 4 十 了 (0 有 p 汪 2 十 了 Ca 名] 村 


加 (一 0 一 1) 
把 飞 必 ) 按 频 率 抽 取 , 得 
右 (4 玫 ) 一 Tv Ca 十 zaCa) 二 Ts) 十 sf] 人 4 
机 剖 册 一 ] 
忆 ( 估 十 1) 一 人 > [aa(n) 一 站 Te) 一 (9) 十 了 (了 WE 了 各， 
提 一 日 





Nt 1 


如 (4 十 2 一 >， [Like 一 ak 十 3() 一 六 直下 因 全 和 ， 


上 人 一 1 


1 和 (4 优 十 3) 一 >) [Gay 十 Je 一 2aC8) 一 了 (7 交 色 全 
也 一 必 





通过 上 面 的 分 解 ， 可 求 得 所 





名 
(〔 呈 一 0 1 二 一 1> 
了 王 (R) 值 ,其 基本 运算 式 为 





[六 Cn) 一 fa) 十 Ka) 十 (Ca) 十 交 (》 


态 人 oa) 一 
Fn) 一 


[Li (aa) 一 了 (8) 一 二 (0) 十 了 Ca) 全 和 
[zf 一 af) 十 sa) 一 了 Ca] 人 和 
[za 十 了 xzaga) 一 Ts 人 2a) 一 了 Ti] 时 





R 
【二 一 91 一 1 


这 样 ， 就 将 一 个 N 点 的 DFT 转化 为 四 个 w/4 点 DFT 来 计算 。 依 此 类 推 , 直至 分 解 到 最 
后 一 级 。 以 上 就 是 按 频 率 抽取 的 基 上 快速 傅立叶 变换 算法 。 与 基 2 FFT 相 比 , 基 4EFFT 
的 乘法 量 约 减 少 25% ， 加 渤 量 也 略 有 减少 。 


三 、 使 用 说 明 


1， 遂 函数 语句 


void fttdfxyyymna) 
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2， 形 参 说 明 





世 


变换 结果 的 实 部 。 


双 精 度 实 型 一 维 数 组 , 长 度 为 a。 开始 时 存放 要 变换 数据 的 实 部 , 最 后 存放 


y 一 一 双 精 度 实 型 一 维 数组 , 长 度 为 n。 开始 时 存放 要 变换 数据 的 虚 部 , 最 后 存放 


变换 结果 的 虚 部 。 
联 一 一 整 型 变量 数据 长 度 ， 必须 是 全 的 整数 次 寡 ， 即 习 一 4 。 


四 、 子 画 数 程序 (文件 名 :fftd4,e) 


并 include ”math.hy 
VDidL 性 t 生 (CXsysny》y 
int my 
double x[L],y[]; 
finti jymyilii2i3ynlyn2; 
double abc:erl,tr2,T3,r4ys1，82，S3，s4 
double col,co2yco3,sil,si2,si3; 
for 人 如 一 1,i= 王 19i<10ii 十 十 ) 
《am 一 i 
] 一 和 4 头 让 
让 司 一 一 ny) breaki; 
} 


DZ 一 Ti 
fcr ( 攻 一 1 所 一 m 冰 十 十 ) 
tnl 一 2; 
n2 一 mn274i 
e 一 28318530718 和 1; 
有 号 一 全 } 
for 避 一 0 js<n2ij 十 十 》 
{b 一 a 十 ai 
c 一 aa 十 bi 
co 一 cos(a)8 
co2 一 cosfby yi 


eco3 一 cosfgcy? 

sil 一 sinfa)i 

si2 一 sinfb); 

si3 一 simfc)》， 

a 一 (十 1 <el 

for 人 一 ji<nji 一 i 十 nl) 
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1 i 一 1 十 nm2i 


过 一 计 十 2 

13 一 12 十 nmn2i 

rl 一 x[i] 十 xli2j]; 

r3 一 x[i] 一 xLi21; 

sl 一 YyD] 十 YLi2]; 
X 





s3 一 Yi 襄 一 YLi233 
t+2 一 X[Lil] 十 区 Li3j 
Id4 一 
sS2 一 
s4 一 
xf[i] 王 


te 一 守 


计 ] 一 xLi3] 
il] 十 y[i3]; 
讶 ] 一 y[i3j; 
rl 一 T2! 

一 了 2 

fl1 一 3 一 S4i; 

Tr3 一 13 十 sd; 

y[i] 一 sl 十 s2， 

S2 一 S1 一 S2 

sl 一 S3 十 T4; 

s3 一 S3 一 T4; 


四 


aa 


| 





xf[il] 一 
yLilj 三 
x[Li2] 一 
y[i2] 一 
xf[i3】」 一 
y13] 一 





} 


nl 一 nm 一 1; 


colxtr3a 十 sl#s3; 
colxs3 一 six#r3; 
COZ 关 t2 十 SI2 关 S2 


CoO2xs2 一 Si2#Tr2i 





co3xrl 十 SI3Ss1 


co3xsl 一 SI3 关 yl 


for 提 王 0 一 0ii<nlgi 十 十 ) 


{ 计 《ii< 
1 一 xD 
s] 一 y[j; 

xD 三 x[i]; 

y[j] 一 Y[ 莫 ; 

区 人 ] 一 rl 


y[i 一 8813 





Kk 一 恒 / 4 
While 3xk < 人 十 1 >》 


(1 一 一 3xk; 
k 一 攻 /4; 
} 
] 一 j 十 上 ; 
} 
} 
五 、 例 题 
设 输 入 序列 和 (1 为 
zi) 一念 一 0 一 
其 离散 傅立叶 变换 为 
了 工 一 他 一 本 


这 里 网 一 e-* . 挝 取 Q=0.9 十 10,3,m=64, 用 基 4 快速 算法 计算 离散 傅立叶 变换 尽 (e)。 
主 函 数 程序 ( 文 件 名 :fftd. my): 
并 include ”math. hy 
提 inelude "ftd4 ec7 
tmainf 7) 
fint ij 
double al,a2,X[L64]y[L64]; 
了 一 4; 
al1 一 0.9 
a2 一 0. 3; 
X[LO] 一 了 0 
y[0] 一 0.0; 
for〔i 一 13i<nii 十 十 ) 
{x[i 一 ail#y*x0i 一 1] 一 a2xy[Li 一 1]) 
y[i 一 a2xx[i 一 1] 十 alxyLi 一 1js 
fttd4Kxyyyn)s 
printffsn DISCRETE FOURIER TRANSFORMAn”); 
for (一 0ii<nyA2ii 填 填 ) 
{ for 和 一 62 十 一 ) 
Print %10.9f 十 丁 邮 10.7f" yx[C2x<i 十 和 ,7[2xi 十 ); 
PrinttKw nx 3 


958 


运行 结 采 ， 


} 


离散 情 立 叶 变 换 入 (ED 一 0,1， 
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1073623 
6005083 
.98859186 
001964 
“680DD245 
5792619 
. 5425870 
5262675 


5181981 
5140292 
5119172 
5109864 


tiO7867 
-5110739 
-5117122 
95126273 
-5137827 
,35151682 
“ 51867939 
DT18S6893 
“5209053 
“ 3235196 
. 3266482 
.5304637 
.5352299 
3413633 
.5495536 
.5610159 
“5780666 
.06056196 


6557802 
7659596 


十 
十 了 
十 了 
十 
十 J 
十 可 
十 了 


十 可 








人 PP 


63) 为 


31: 


. 95837664 
.66940530 
37824068 
,68410347 
-1280651 
“4798111 
1170013 
.81980448 
“了 143861 
53873447 
. 4856003 
+ 0092185 
3280634 
3559 意 
- 20 和 8888 
“ 13505734 
0989299 
0489168 
00004742 
0502023 
1012532 
1547191 
21] 
2744324 
34435192 
4125258 折 
5212643 
3 


8982 





8 135 


-了 931999 
OU40723 


134]3 


8543286 


站 


习 


2 


6054<123 
3380686 
112267 
3063639 
.6157312 
59569682 
-0329358 
.9215631 
-5157743 
.5127847 
13388 
.3108138 
108797 
31139549 
.5121381 
“95131761 
“3]44465 


51594986 


:59177053 
,5197531 


5221563 
52501904 
5284563 


5327066 


5380910 


. 5 和 451421 


554767 二 


686255 
33900385 
6265482 
“6986936 
1 3627 





“1927516 
.260617105 
.48T187 
-09356512 
.70D0873 
-1.2763197 
-0 9883727 
7919419 
.06470634 
.5339108 
. 441509] 
. 3632625 
一 0. 2949369 
一 0 336549 
一 0 1773554 
0 1244808 
一 凡 0737845 
一 0 898242037 
0 9252361 
0. 0754977 
0. 1270093 
0. 1827519 
0. 2423748 
1 3083645 
0 3833143 
站 
夏 
0 
0 
1 
1 
2 


-1 -JJ 小 


2 





,4709800 
-3771111 
.7110769 
.8893589 
和 39945 
546860251 
， 29959188 


$ 1.4 分裂 基 快速 傅立叶 变换 


一 、 功 能 
计算 复 序列 的 分 裂 基 快 速 傅立叶 变换 
二 、 方 法 简介 
序列 z(2) 的 离散 傅立叶 灾 摘 为 
X(A) 一 zCoW， 上 一 0 一 1 


将 总 二? 按 序 号 大 的 奇偶 分 成 两 组 。 当 上 为 偶数 时 ,进行 基 2 频率 抽取 分 解 ,X(&) 可 
表示 为 


且 (2) 一 袜 Lztay 十 衬 (m 十 全 7W 介 ， 下 一 0,1，s 
当 上 为 奇数 时 ， 计 行 革 4 频率 抽取 分 解 ， 怀 ( 才 ?可 表示 为 


[六 (4 十 1) 一 人 1 [zfta) 一 2 人 十 人 > 一 了 Lzta 十 全 一 交 ( 十 JW 训 
| nn 


人 
:六 一 1 


ea 十 3) 一 立 { [人 ay 一 工人 十 福 十 了 Lzena 十 了 ) 一 交合 十 3] 仔 煤 
避 
下 一 0 一 诗 


由 此 可 见 , 一 个 区 点 的 DFT 可 以 分 解 为 一 个 N742 点 的 DFT 和 两 个 丸 /4 点 的 DFT。 这 
种 分 解 既 有 基 2 的 部 分 ,又 有 基 4 的 部 分 ,因此 称 为 分 裂 基 分 解 。 上 面 的 N/2 点 DFT 又 
可 分 解 为 一 个 六 /4 点 的 DFT 和 两 个 N78 点 的 DFT ,而 两 个 NA4 点 的 DFT 也 分 别 可 以 
分 解 为 一 个 WA/8 点 的 DFT 和 两 个 /16 点 的 DFT。 依 此 类 推 , 直 至 分 解 到 最 后 一 级 为 
目 。 这 就 是 按 频 率 抽取 的 分 型 基 快速 傅立叶 变换 算法 。， 

分 裂 基 快速 算法 是 将 基 2 和 基 4 分 解 组 合 而 成 。 在 基 2" 类 快速 算法 中 ,分 裂 基 算法 
具有 最 少 的 运算 量 , 昌 仍 保留 结 糙 规则 、 原 位 计算 等 优点 。 


三 .使 用 说 明 


1. 子 男 数 语句 
void stftt(xyysn) 
2， 形 参 说 明 


x -一 双 精 度 实 型 一 维 数组 , 长 度 为 n。 开 始 时 存放 要 变 接 数据 的 实 部 , 最 后 存放 
变换 结果 的 实 部 。 


y 一 双 精 度 实 型 一 维 数组 , 长 度 为 na。 开始 时 存放 要 变换 数据 的 虚 部 , 最 后 存放 
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变换 结果 的 部 ， 
n 一 一 整 型 变量 。 数 据 长 度 ， 必 须 是 2 的 整数 次 医 ， 即 n 一 2"。 


四 、 子 函数 程序 (六 件 名 :srfft,c) 


并 inciude ”math. hy 
void sr[ftCxyyyrD) 
int nt# 
double xL],yL]; 
tint ijkymyilyi2;i3,nln2nd,id,is; 
Qouble avbycyeya3r]1r2r3rd4# 
Gouble clc3:sl1,a2,s3cclec3y ss1，SS3 
for 全 一 1 一 15i<165 和 十 十》 
tm 一 ji 
] 一 了 <]; 
让 人 一 一 D) break; 
} 
nm 一定 关 ns 
for (一 1 kk< mi 和 十 寺 》) 
{n2 一 n272; 
nd4 一 n274， 
e 一 6.28318530718Am2; 
一 0; 
for (一 Djs<cnd4i 十 十 ) 
【 3 一 吕 关 旺 
ccei 一 cos(a)y 
ss1 一 stnga); 
ce3 一 cos(a374 
ss3 一 Sinfa3)# 
a 一 《j 一 17》xey 


is 一 j 


记 一 2<n2; 
do { 
for 人 一直 和 < 一 1 和 1 一 ! 十 过) 
{ 计 一 1 十 mdi 
i2 一 计 十 nd4y 
i3 一 1 十 nd4s 


rl 一 Xi 一 Xi2] 
XLi] 一 xD] 十 x[i2]; 
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r2 一 xfil] 一 x5i3]， 
xEil] 一 xlit] 十 x[Li3]， 
s1 一 了 [让 一 了 [i2) 
y[] = 一 y[i 十 yi2]， 
s2 一 y[1] 一 yLi3jJ; 
y[ilj] = y[ia] 十 y[Li3]; 


3s3 一 TI1 一 8S2; 
Tl1 一 T1 十 s2 
82 一 12 一 8 
t2 一 1 十 8 


x[i2] 一 rLxecl 一 s2xssl; 
y[i2] 一 一 s2 xccl 一 tl1xSs15 
xlLi3] 一 s3#cc3 十 T2xrss3) 
y[i3] 一 T2xec3 一 S3xSss33 


} 
is 一 2#+ 志 一 mn2 十 ji 
过 一 4xid 
》 
while is < (nn 一 ]》79 
》 
is 一 他; 
这 一 4; 
do 
for 一 isii<nii 一 1 十 id》 
《由 一 1 十 1 
tr 一 Xi 
IT2 一 y[]; 
X[ 详 一 zt 十 xfil]; 
yl 一 纪 十 7y61]3 


xf[fil] 一 rl 一 xG1]; 
[il = 一 12 一 y[il] 


] 
is 一 汉 # 启 
记 一 4#idi 


一 富 


} while (让 < 《Cn 一 1 34 


盖世 一 |; 
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for 章 一 0 一 Di<nlii 十 十 ) 


{ 计 (ts 
{rl 一 xi; 
sL 一 Y[jJ 
x[ 和 说 一 xD] 
y[j = 7 这 
Xx[i] 一 T1i 
y[i] 一 sl 
} 
上 一 mA2t 
While《K< 避 十 1) ) 
{j 一 jj 一 ki; 
KE 一 /2 
] 一 j 十 K; 
》 
4 
五 、 例 题 
设 输入 序列 zi 为 
xz 一 人 ， 一 0 一 1 
其 离散 情 立 叶 恋 换 为 


二 了 工 二 他 ” 一 本 
直人 一 械 一 站 ， 下 一 站 ,1 1 


这 里 殉 =e- 产 . 选取 Q=0.9+7 0.3ia=32, 用 分 裂 基 快速 算法 计算 离散 傅 立 于 变换 
六 (天 ) 。 
主 明 数 程序 (文件 名 :strftt, my): 
共 include "matn, hy 
林 inelude "srfft ce” 
tmain() 
int ini 
double al,a2,xL32],y[L32j; 
n 一 32; 
al 一 也 ,9i 
a2 一 03 
x[0] 一 1.0i 
y[ 乓 一 0.0; 
ferfi 一 1yi<nii 十 十 ) 
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STT 扩 [入 和 +DL) 
printf(ysea DISCRETE FOURIER TRANSFEORMAn7 7 


{ 文 [ 问 = alxx[i 一 I 一 a2xy[Li 一 1]; 


yfi] 一 a2xx0 一 ti] 十 alxyLi 一 1 


tor 《ii 一 0ii<<ny2i 十 十 》 


} 


Printftf ny )# 


{ for 人 一 0ij<< 2 十 十 ) 
printfC” 闻 10. 下 十 丁 电 10.7f yx 2xi 十 条 ,7L2#xi 十 门 )3 


2.7922679 
1,8664455 
9047939 
0 7396056 
0,. 6735758 
0, 86369913 
和 6126129 
0. 5942004 
0， 
自 
日 
0 
日 
避 
0 


5788996 


565135 呈 
5518591 
,5382144 
5234037 
,5069258 
.4913894 
173540 


十 了 
十 了 
十 了 
十 了 
十 本 
十 了 
十 了 
十 可 
十 
十 ] 
十 
十 可 
十 可 
十 了 
十 可 
十 可 


实 序列 快速 傅 立 叶 变 换 ( 一 ) 


运行 结果 : 
离散 僵 立 叶 变 换 X( 的 全 一 0,1，…,31) 为 
D, 8939728 十] 号 .495987357 
9. 4029646 十 了 一 81350136 
1.1318227 十 一 2.2341573 
0. 7995572 十 】 一 1 1396094 
0.7008616 十 了 一 避 690985654 
站 .6531094 十 一 小 44624590 
0,. 6237884 十 一 02720860 
0 6028833 十 ] 一 各 13657032 
0,.5862775 十 ] 一 0.0179492 
0,. 5?18985 十 了 0 0926070 
0. 5584921 十 本 0.2048808 
0,. 5451336 十 了 0 3283649 
0D,5310015 十 J D. 4766778 
0 51538625 十 本 0.6748500 
0. 4984670 十 了 0. 9809063 
0. 4907322 十 于 1.5770820 
$1,5 

一 、 功 能 

计算 实 序列 的 快速 傅立叶 变换 

二 、 方 法 简介 

实 序 列 zx 人 9) 的 离散 傅立叶 变换 为 


9 


0504557 
,8338328 
.5340293 
823144 
.95584785 
335326891 
,2006419 
0753137 
376517 
1479833 


2645222 


3982571 
.5671323 


80810915 


“2192074 
1888329 
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rearrrreerrirerr reer 一 -taimmm eareem 二 


各 
(RD) 一 > (ma) 人 py 党， 天 一 0 1 一 1 


上 和 式 可 用 复 序列 FFT 算法 进行 计算 。 但 考虑 到 x(o) 是 实数 ， 为 进一步 提高 计算 效 
率 ， 需 要 对 搁 时 间 抽 取 的 基 2 复 序列 FFT 算法 进行 一 定 的 修改 。 

如 果 序 列 (是 实数 , 那么 其 傅立叶 变换 X( 和 一 般 是 复 救 , 但 其 实 部 是 个 对 称 ,， 虚 
部 是 奇 对 称 ， 即 Xe 具有 如 下 共 斩 对 称 性 ，X(C0) 和 XCV7A2) 都 是 实数 , 旦 有 


和 CE) 一 Xe CN 一 有， 1 去 4 祥 今 一 1 


在 计算 离散 傅立叶 变换 时 ， 利 用 这 种 共 匈 对称 性 ， 我 们 就 可 以 不 必 计 算 与 存储 忆 () 
(CN72 十 1 所 有 人 一 1) 以 及 和 0) 和 和 CN 的 虚 部 , 而 仅 需 计算 刁 (0) 到 和 CNV7A2? 即 
可 。 些 处 我 们 选择 的 是 计算 X(0) 到 和 CN 和 和 (CON 到 和 (3 ,这样 售 可 以 愉 好 利 
用 复 序列 FFT 算法 的 前 CNV/4) 十 1 个 复数 蝶 形 ,这 就 是 按时 间 抽 取 的 基 2 实 序 列 FFT T 算 
法 , 它 比 复 序列 FFT 算法 大 约 可 减少 一 半 的 运算 量 和 存储 量 。 


三 、 使 用 说 明 


1. 子 男 数 语句 
void rfftkxya) 
2， 形 参 说 明 


x 一 一 双 精 度 实 型 一 维 数组 , 长 度 为 mn。 开始 时 存放 要 变换 的 实数 据 ,， 最 后 存放 变 
换 结 果 的 前 六 十 1 个 值 ， 其 存储 顺序 为 [Re(0) ,Re(1)，…,Re( 了 )，Im( 六 一 1)，Jm 


(1)]。 其 中 Re(0) 一生 (007 ,Re( 卫 >) 一 天 ( 卫 广 ) 。 根据 各 CR) 的 共 辑 对 称 性 ,很 容易 写 出 后 半 
部 分 的 值 。 
n 一 一 整 型 变量 。 数据 长 度 , 必 须 是 2 的 整数 次 者 , 即 一 2"。 


四 、. 子 通 数 程序 (文件 名 :srfft,ec) 


提 include ”math. hy 

void rfttfxony) 

ipt 

douhble xf[]; 

{ int ij,kvmyil,i2,i3,idnlyn2n4s 
double aeyccyss,xXxtytlLyt2; 
for 如 王 1 一 1ji< 16 和 十 十 》 

《mm 一 
j 一 二 # jj 
计 人 一 一 ny break; 
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nl 一 一 1; 
for (jj 一 0,i=-0Oii<cnlii 十 十 ) 
{itCi<j) 
{xt 一 开 [j]; 
x 让 ] 一 x[i]; 
XLi] =- xti 
} 
k 一 n/2; 
White k << 0 二 1) 》 
(人 一 j 一 k; 
k 一 k/2; 
} 
j 一 j] 十 上; 
} 
for 一 0ji<<nii 十 一 2 
txt 一 X[]; 
x[ 详 一 xt 十 x[i 十 让 ; 
x[i 十 1] = 一 xt 一 x[i 十 1]; 


} 
n2 一 1 
for (k 一 2 一 一 mmiE 十 十 ) 
{nk 一 D2 
nm3 一 二 +#Hnd4i 
nt 一 2xn2f 


e 一 6.28318530718An1; 
fet (一 0ji<<nii 十 一 nl1) 
({xt 一 工 [ 刘 ; 
xX[i == xt 十 x[Li 十 n2] 人 
x[i 十 na2] 一 xt 一 xLi 十 n2]) 
x[i 十 n2 十 n4] 一 一 XLi+n2 十 ng] 


站 一 号 
fcot 人 一 15j 拓 一 (nd4 一 1)j 十 十 ) 
{ 谋 一 下 十 入 
这 一 1 一 j] 十 n2; 
i3 =i 十 j 十 nz 


这 一 1 一 j 十 了 
cc 一 cosfa)i 
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ss 一 Sinfa); 

站 一 有 十 

t 一 ce xx[i3 上 十 ssx<X[ 二 ]; 
t2 一 ssxxfi3] 一 cexx[i4ji 
X[id] 一 x[i2] 一 t2; 

xli3] 一 一 xLi2J 一 1t24 


x[i2] 一 xLil] 一 
[和 ] 一 xi] 十 
} 
} 
} 

} 

五 例 是 

设 信号 z( 人 0) 为 


8 ， 
re 和牛 ] ae 这 


到 * 一 64， 采 样 间 隋 必 =0 01， 则 输入 序列 为 


0 ， 
克 人 一 | 二 sin| 红 e 闻 |， 


先 用 实 序列 快速 傅立叶 变换 算法 计算 出 前 王 十 1 点 的 DFT， 


性 ， 得 到 X (各 的 后 半 部 分 的 值 。 
主 函 数 程序 (文件 名 :rfft m): 
并 include ”math,h” 

林 includqde "rfft ce” 
Imain{t) 
{ int im 

double xf[64]， 

一 64# 

fori 一 05i<10;i 十 十 ) 

{ x[i 刘 一 0. 5 
for 一 105i<niH 十 ) 


< 0 1] 


0 和 妇 < 0 64 


一 日 1 


z 一 10， 1 3 


崔 后 根据 总 ( 太 的 共和 对 称 


{ xp 一 exb( 一 (一 10)715.0)7 xsinf6. 2831853 xi 一 10)716.023 


ttftCxynyi 


printf fn DISCRETE FOURIER TRANSFORMAn7 ) 1 


brinttC 10. 7 ”xlLO TD)， 
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Hsu 


Printf(” %%10. 了 十 丁 冯 10.7fPar ,xLl],xLn 一 1); 
for 人 21<n125 十 二 2) 
1 Printtt” 听 10. 于 十 丁 色 10.7f，xLi] ,xn 一 计 ); 
PrintfC2 电 10. 开 十 丁 昕 10.7fe xD 十 1],xDa 一 1 一 1]># 


PrintTew ny 


} 


printfC” 叫 10. 7ft ”xxLnA2 3 


brintfCw 5%%10. 守 十 本 Miozfn xny2 一 1 一 x[nA2 二 1) 


for(〈i 一 25i<na/i 十 一 2 


{ printff” 昨 10. 中 十 了 入 19. 7 和 ,xxLny72 一 襄 , 一 x[Ln72 十 iD 


Printff” 最 10. 7f 十 本 好 10. 7 和 ,xx[n/2 一 i 一 1 一 x[n72 十 iT 


Printftnnn > 


} 
运行 结果 : 


离散 傅立叶 蛮 换 英 ( 有 (一 0 1 63) 为 


2. 4716438 
一 1.7773741 
4. 6976010 
一 1.4488674 
一 0 2168592 
日 . 4785094 
一 六 2368093 
一 0 1370433 
0Q. 1916384 
一 0.0695481 
一 0. 1211163 
0. 1047725 
一 由 0089390 
一 0 113568 
0.0601108 
0.0270938 
一 0 1112558 
0 270839 
0.0601108 
一 由 ,113568 
一 0.0089390 
0 1047725 


十 可 
十 J 
十 j 
十 可 
十 了 
十 可 
十 了 
十 了 
十 本 
十 了 
十 了 
十 本 
十 可 
十 了 
十 可 


十 本 
十 j 
十 了 
十 可 
十 了 


一 2.6344206 
5. 556569 他 
一 了 3381975 
0. 8755663 
一 凡 1037752 
一 2597506 


0. 2443001 


0.0250160 
一 信 1529382 
由 1950731 
0. 0591762 
一 0 1129893 
.0425398 
0 0761078 
一 0 0914649 


09146498 
一 00761079 
一 0.0425398 

0.11249893 
一 0.05931762 


“2740712 
.3176231 
.5895801 
.2146800 
.4458803 
. [151100 
.3160070 


0.0975637 


< 


.00997018 
.1656937 


人 0082553 
0. 0916960 


5 


和 2264 
-0345115 
0878926 
,0669673 
,10669673 
.0878926 
-0345115 
.042640 
. 098916960 
082553 


十 了 
十 了 
十 了 J 
十 了 
十 了 可 
十 j 


十 本 


十 J 
十 J 
十 J 
十 了 
十 了 
十 j 
十 了 
十 了 
十 了 
十 了 
十 于 
十 了 
十 了 
十 了 本 
十 了 


一 了 
】 
一 3. 


六 > 


2911342 
3403590 
3203257 


4119 扣 1 号 
.44785451 
,3805316 
0427139 
.229842 
.1 391 过 19 
.0D313017 
,上 412694 
. 08600073 
,13241 
, 1059031 
0173288 
,0825079 
.0825079 


0173288 


. 1059031 
-0613241 


0 D600073 


旧 , 二 生日 入 
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一 0 1211163 十 了 一 0.1050731 一 0.1656937 十 了 0.0313017 


一 六 0695481 十 了 .11529382 0.0997018 十 本 各 . 工 381 2 
0. 1916384 十 」 一 小 0250160 站, 0975037 十 了 一 避 2129842 
一 0 1370433 十 了 了 一 0.244300] 一 0 3160070 十 一 小 0427139 
一 习 2368093 十 0 2597506 0,. 1151100 十 本 0 3805315 
,4785094 十 可 0 1037752 0, 4458803 十 一 04765451 
一 0.2166592 十 一 0 8755683 一 1.2146800 十 一 0 4L19618 
一 1.4488674 十 j 1.3381975 1.5895801 十 可 3 3203257 
4,.6976010 十 ] 一 5.5565690 一 生 5178231， 十 J 一 1 3403590 
一 1.77?937941 十 j 卫生 3442 人 0 1.2740712 十 本 2. 2911342 


$ 1.6 实 序列 快速 傅立叶 变换 (二 ) 


一 、 功 能 

用 六 点 复 序列 快速 傅立叶 变换 来 计算 2N 点 实 序列 的 离散 合 立 叶 变换 
二 、 坟 法 简介 

假设 x(z) 是 长 度 为 2N 的 实 序列 ,其 离散 傅立叶 变换 为 


2 一 : 


其 (有 一 > za 有 中 一 01 和 :2 一 1 
为 有 效 地 计算 傅立叶 变换 筷 () ,我 们 将 <Co) 分 为 偶数 组 和 奇数 组 ,形成 两 个 新 序列 
Fa 和 EC) 即 
CD) 一 27) 
硫 () 一 了 2 十 1 一 0 一 1 
然后 将 Fa 和 g() 组 成 一 个 复 序列 严 (m) 
丰 (a) 一 1) 十 否 人 11 一 01…N 一 1 
用 FFT 计算 瑟 (z) 的 六 点 博 立 叶 变 换 ( ,并 且 互 ( 包 可 表示 为 
本 (5 一 王 (十 JRJ， 开 一 0 一】 
由 上 容易 推出 


CE) 一 二 [BC 十 吾 :CN 一 有 


Ge = 一 艺 [HG 一 如 "CN 一 如 ] 
求 得 FE 和 G(t 后 ,利用 下 面 的 蝶 形 运算 计算 xz(a) 的 离散 傅立叶 变换 和 (有 
人 一 下 (有 ) 十 TAG(E) 
骂人 十 N) 一 FF) 一 TvGCD， 开 一 0 一 1 


”这 种 实 序列 FFT 算法 比 相 同 长 度 的 复 序列 FFT 算法 大 约 可 碱 少 一 半 的 运算 量 。 
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三 、 使 用 说 明 


T， 子 国 数 语 句 
void TY1fTCx ny 
2， 形 参 说 明 


x 一 双 精度 实 型 一 维 数组 , 长 度 为 n。 开始 时 存放 要 变换 的 实数 据 , 最 后 存放 变 
换 结果 的 前 2 十 1 个 值 ， 其 存 钳 顺 序 为 [Re (0)，Re (1)，…，Re (号 )，Im ( 卫 一 1)， 


必 ，JIm (1)]。 其 中 Re (0) 一 区 〈0)，Re 《了 一 习 (本 )。 根据 筷 ( 妈 的 共 辊 对 称 性 ， 


很 容易 写 出 后 半 部 分 的 值 。 
a 一 一 整 型 变量 . 数据 疾 度 ， 必 须 是 2 的 整数 次 乱 ， 即 n 一 2" 。 


四 、 子 数 程序 (文件 名 :rlfft,c) 


并 ipelude "stdlib, hy 
并 训 clude ”math, hr 
失 记 cluqde ”fit en 
YO 胃 1 
int Pt 
doublie x[] 
《int inls 
double aycyeysyfr,,gETEiy 关 , 关 区 
于 一 majloectn72 x sizeof(double))3 
各 一 mallocfny72 x sizeoffdouble)7j 
HE 一 mA2I 
e 一 3.141592653589793Am]1， 
for G 一 03i<nlii 十 十 ) 
{ 开 训 一 x[2+< 匡 * 
区 [Li 一 x[2 xi 十 1]; 
} 
fttCftgynl,1》5 
x[oj] 一 fLO] 十 g[0] 
x[nlj] 一 所 0] 一 gL0]; 
tor 人 一 19i<nl3oi 十 十 ) 
{ 好 一 ( 拒 计 十 tLnl 一 站)723 
下 一 《〈g [Li 一 5[nal 一 训 》723 
寻 一 《gLn] 一 句 十 g[i 门 772， 
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&i 一 《fiLnl- -一 什 问 372， 


下 一 1 基 ey 
C 一 Cosfal 
s 一 sinta)3 


X[Di] 一 廿 十 exgr 十 3 关 区 1 
[mn 一 可 一 在 十 cx 名 一 号 关 帮 tr 





} 
freetf 
freetgy73 
} 
五 . 例 题 
设 信 和 号 x( 昌 为 
D ， t < ,1 
:0o-| 上 一 0 1]1 ,Ta2r 人 一 01 忆 
xp 55 1 sin| 可 TS |， 0 1 < < .34 
取 一 64. 采 样 间隔 汪 =0.01, 则 和 输入 序 由 为 
口 ， :上 一 属 ,1， 3 得 
了 人 一 一 101 .To2rrf 一 10) ， 
， | 一 车 | sin| 全 |， 1 二 2010 


先 用 实 序列 快速 傅立叶 变换 算法 计算 出 前 六 十 1 点 的 DFT ,然后 画 出 其 频谱 图 。 
主 现 数 程序 (文件 名 :rlfft.m) : 
提 include ”stdio. ny" 
#include "tmath. hy 
并 inetude riftt en 
mainf ) 
{ int isny double xL641; 
FILE 关 fp; 
一 有 1 
for fi 一 0ii<1031 一 十 ) 
(Xi 一 0 3 
fear 4 一 105i<nii 十 十 ) 
{ 区 [一 expt 一 站 一 1037715.07xsinf6 2831853* 一 107716.073. 
fIfftgssnmys 
hrintff sn DISCRFETE FOURIER TRANSEORM'An2 Di 
Printf6” 折 10. 了 fxE01)3 
Ptintfg” 贤 10. 于 十 丁 晰 10.7fsn” xxLn 一 1])5 
for 4 一 251<nA2ii 十 一 2) 
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(Drintft” 品 10. 十 本 网 10.7f xxLa 一 1 
Ptintft 咯 10. 7 十 丁 昕 1 xi 十 1] 一 i 一 菇 3 


bzrintf( sn) 


Printfg” 叫 10. 71 7 x[nA2])3 
for 《i 一 1;is<<ny2ii 十 十 )》 
{ X[ 订 一 sqrtKx[Li] *#x 襄 十 x[Cna 一 训 XDa 一 让 7》 
x[nay/2] 一 fabs(CxLny2]); 
fp 一 fopent*r1lftit, dat ”ww”) 
for (一 Di 所 一 ny2ii 十 十 ) 


{ fpfintfCip 和 光疗 吧 fsnr ixD)， 


closeffip7 
} 


输入 序列 ra) 的 频谱 如 图 2-1-1 所 示 。 


运行 结果 ， 


如 
了 
日 
号 


的 ( 基 ) 
世 


图 2 一 1 一 1 


离散 傅 立 时 变换 素 () (全 一 0 1 32) 为 


2 4 了 71643 和 8 
一 1.7773741 
二. 6976010 
一 工 448 久 74 
一 避 2166592 
二 二 78509 生 
一 0 2368093 
一 阁 1370433 
0,. 1916384 


十 ] 
十 j 
十 了 
十 可 
士 j 
十 了 
十 本 
十 j 


344206 
059565690 
， 338T1975 


3875506863 


.1037752 


2597506 


443001 
02501690 


序列 xG) 的 频谱 


2 了 1 
. 5276231 
58895801 
146800 
4458803 
.1151100 
.3160070 


0975637 
93998701 名 





39 


十 了 
十 了 
十 了 
十 
十 
十 
十 了 
十 了 
十 


.2911342 
,3403590 
.3203257 


0. 4119618 
0. 4765451] 


“. 3805316 


.0427139 
0 2129842 


,1391219 


69 


一 0.0695481 十 ] 一 0.1529382 一 0.1656937 十 ] 一 90313047 


一 9.1211163 十 了 0, 1050731 0.0082553 十 了 避 , 141269 和 4 
0. 1047725 十 本 0.05917062 0. 0916960 十 本 一 0 0600073 
一 0 0089390 十 一 0 1129893 一 0 1042640 十 JJ 一 0.0613241 
一 0 1135680 十 了 0. 0425398 一 00345115 十 本 0 1059031 
0.0601108 十 了 0 87619079 0.0878926 十 丁 一 00173288 
0.0270939 十 一 00914649 一 0.0669673 十 本 一 00825079 


一 小 11255 如 


8$1.7 用 一 个 六 点 复 序列 的 FFT 同时 计算 
两 个 N 点 实 序列 离散 傅立叶 变换 


一 、 切 能 


用 一 个 N 点 复 序列 快速 傅立叶 变换 算法 来 同时 计算 两 个 点 实 序 列 的 离散 傅立叶 
变换 


二 、 方 法 简介 


假设 =(z) 与 (都 是 长 度 为 N 的 实 序列 ,为 计算 其 离散 傅立叶 变换 瑟 () 与 了 (&)， 
我 们 将 ze) 与 ye) 组 合成 一 个 复数 序列 Ra) 
大 和) 一 冤 ) 寺 了 呈 (2 
通过 FFT 运算 可 以 获得 #(z) 的 离散 傅立叶 变换 玉 ) , 吾 ( 可 表示 为 
再 (二 ) 一 其 ( 二 ) 十 于 卫 (二 》 
根据 求 得 的 妃 个 ) ,并 利用 DFT 的 奇偶 共 移 性 ,我 们 得 到 忆 (8 和 了 了 () 为 


XCe) = 二 LED 十 再 "CN 一 旭 ] 
7 (有 ) 一 一 六 [有 (有 ) 一 再 "CN 一 开 )] 
三 、 使 用 说 明 
1， 子 函数 语句 
void T2 和 txyysn) 
2， 形 其 说 明 


x 一 一 双 精 产 实 型 一 维 数 组 , 长 度 为 n。 开始 时 存放 第 一 个 实 序列 , 最 后 存 训 变换 
结果 的 前 去 十 1 个 值 , 其 存储 顺序 为 [Re(07 ,Re(1y，… ,Re( 志 ) in( 广 一]) 1 
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Imtk1)]。 其 中 Re(O) 一 X(0) ,Re( 了 ) 一 和 (本 )。 
y 一 一 双 精 度 实 型 一 维 数组 ,长度 为。 开始 时 存放 第 二 个 实 序列 ,最 后 存放 变换 
结果 的 前 却 +1 个 秆 ,其 存储 顺序 为 [Re(0),Re(1)，…,Re( 王 ) ,Im( 二 一 1)，",Im(1)]。 


其 中 Re(0)=Y(0) ,Re 了) 一 Y( 本 )。 


根据 和 人 7 和 了 (的 共 斩 对 称 性 ， 很 窜 盘 给 出 它们 后 半 部 分 的 值 。 
n 一 一 整 型 变量 。 数 据 长 度 ， 必 须 是 2 的 整数 次 蜂 ， 即 n 一 如。 


四 、 子 攻 数 程序 (文件 名 :r2fft,ec) 


闻 include "fft,ey 
void *2fft(CxX yy na) 
int ni 
doupble x[j,yF]; 
(int tynls 
double trytii 
nl 一 mn/2; 
fttgxsyinay dy 
for (一 15<<nl3i 十 十 > 
人 tr 一 《〈xf] 十 xln 一 门 )723 
f 一 [一 YLa 一 23723 
y[i 一 (y[m 一 训 十 y[i])72; 
y[ 一 语 = (xfn 一 襄 一 x 问 )72; 
X[Li] 一 寺 ; 


xn 一 训 一 1 


} 
五 、 例 题 


取 #”=64， 第 一 个 实 序列 zxG) 为 
了 人 一 eol 一 0 1 63 
第 二 个 实 序列 yG) 为 


0 ， 1 一 019 
《ED 一 7 一 、 一 
”> | | sin| 纤 ao |， 1 一 10,11，…，63 
用 复 序列 快速 传 立 上 时 变换 算法 ， 同 时 计算 出 两 个 实 序列 = 和 >(z) 的 前 沁 十 1 点 的 
DFT。 
主 函 数 程 序 { 广 件 各 :全 ft tm y ， 
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##include ”trmath. hn 
并 incluqde ”r2ffr rn 


Imnainf 》 


| 1nt 19n3 


double x[L64],y[L64]; 


一 64; 


fcetr 4 一 Oricnii 十 十 ) 
{ 和 [一 xp 一 已 工 头 1 让 








for 《1 一 站 51< 103 和 1 
{1 YL 一 0 》 
fotr (Ci 一 1031<n 久 ) 








1 Y[ 襄 一 exp( 一 G 一 10)715.07 xsin(6.2831853 (一 10)716.0)3 
r2HtECXY An) 


printft sn DISCRETE FOURIER TRANSFORM 和 (kan ); 


PrinttC 0%10. 7 xLO]); 
Printf” 10. 下 十 丁 邮 190， 7 了 fn x[Ltjyxn 一 ]])， 
for 6 一 2ii<ny23i 十 一 2) 
{ Printff” 上 %10.7f 十 丁 多 10.7f,DyxDn -一 i); 
brintff 上 10,.7f 十 】 儿 10.7 直 ,xxLi 十 14xLa 一 ;一 1])， 
Printff ny 7 


} 


printf 2” 岂 10.7fn2 xLnyZ2])4 


printfe" sn DISCRETE FOURIER TRANSFORM TIE An) 


ptintfC” 由 10.7fyLO]); 
brintfC” 10.7f 十 本 始 10.7fn" JyL1] yn 一 1 
for (i 一 23i<ny725 十 一 2 
{ printf” 始 10. 下 十 丁 晰 19. 7 下 sy[ 订 :yn 一 二 1 
PrintfC” 邓 10. 和 十 本 10.7f sy[i 十 让,y[n 一 ;一 1]); 
Printf” ny 7 


} 


brinttk” 申 10. fn ,yny2]); 


} 
运行 结果 ， 


第 一 个 序列 的 离散 博 立 叶 变 换 X() 全 二 0, 1， 33) 为 


10. 4908717 
.5636802 
.115506g 
872872 


0 
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十 ] 一 4.0209561 
十 一 33546952 
十 一 1 598088 寺 





5 5911247 
1. 5394558 
0. 9054008 
人. 7 了 14693f 


证 ]j 
十 了 丁 
一 j 
一 了 


一 和. 9826806 
一 3.0147654 
一 1 9117744 
一 1. 3649922 


党 站 


. 66750128 十 了 
.6104206 十 J 
.5795139 十 本 
.5609044 十 ] 
.5489204 十 了 
.5408327 十 ]j 


5352005 十 ] 
535312088 十 


.5283730 士 】 
.5263954 十 ] 
.5250910 十 本 
.5243482 十 本 
1 


5241069 


一 1.1848575 
下 9234818 
一 六 7410523 
一 各 .6D448 
一 用 49686837 
一 个 .40794894 
一 0 3323311 
一 D 2659559 
一 避 2061583 
一 0 1510087 
一 0 0990333 
一 站 .9490409 


站 


.63340820 
.592871 生 
69127 


954297 昌 
D44149984 
5377708 
5330356 


,52896683 
272906 
,2667 二 
+， 52246542 
.5241669 


第 二 个 序列 的 高 散人 铺 空 叶 变 换 了 (有 ( 业 01 …，33) 为 


2. 
一 1， 
二 
一 1 
一 0， 
0 
一 -站 


47916438 

77?33741 十 可 
6976010 十 jJ 
4488674 十 ] 
21663592 十 了 
4785094 十 了 
2368093 十 j 


.1370433 十 本 
.1916384 十 本 
.0695481 十 了 
.1211163 十 本 
.1047725 十 本 
.0089390 十 本 
,1135680 十 本 


0.0601108 十 了 J 


“270939 十 jJ 
. 1112558 


1.8 


一 ` 切 能 
计算 共 斩 对 称 复 序列 的 快速 情 立 叶 反 变换 ,其 变换 结果 是 实数 。 


一 2 6344206 
6. 5955965690 
一 1.3381975 
0.8755663 
一 癌 . 1037752 
一 全 293597506 
晶 , 2443901 
@, 0250160 
一 避 1529382 
0. 1050731 
0. 0581763 
一 曲 1129893 
0425398 
0761079 
一 0. 0814649 


呈 叶 


二 ， 
一 4. 
上 


27407]2 
5176231 
589580 


2146800 
.4458803 
.115351100 
3160070 
89879637 
997018 
.1656937 
.0082553 
.0916960 
.0204 


03453115 


0878926 


0669673 


.0411541 


8250034 
6683394 


.5477097 


二 53 
3687789 
2981781 


353688 
站 2 
1247038 
.0738559 
0244813 


“2911342 


1. 3403590 


共 斩 对 称 序 列 的 快速 傅立叶 反 变 换 


203297 
< 和 和 9 六 
. 才 765451 
.38053186 
. 0427139 
129842 
11398121 
有 313017 
.1412694 
0600073 
:08613241 
. 1059031 
.0D173288 
825079 
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二 \ 广 法科 介 
序列 < 的 离散 傅立叶 变换 为 


中 1 - 
站 《下 ) 一 >,7Cnm) 全 十， 天 一 DAN 一 1 





序列 和 已 ) 的 离散 情 立 时 反 变换 为 
1 
0 一 六 XCGDWa， 呈 一 














站 1 一 工 


共 秒 对称 复 序列 的 傅立叶 反 变 换 ， 可 用 复 序列 快速 伴 立 叶 反 变换 算法 进行 计算 。 但 
考虑 到 Xi) 是 共 印 对 称 的 ， 其 傅立叶 反 变 换 zx) 是 实数 ,因此 ,为 进一步 提高 计算 效 
率 , 需 要 对 一 般 的 复 序 列 IFFT 算法 进行 一 定 的 修改 。 











(RE) 一 王 一 有 上 扫 : 


共 斩 对 称 序列 XCt3 具 有 如 下 性 质 ,X(0) 和 忆 ( 仿 ) 都 是 实数 , 且 有 


有 二 立 一 1 





时 入 t? 的 实 部 是 侦 对 称 , 虚 部 是 奇 对 称 。 在 计算 傅立叶 反 变 换 时 ,利用 这 种 共 辑 对 称 性 ， 


我 们 就 可 以 不 必 计算 和 存储 X(CD)( 信 1 1 二 < 闪 
比 一 般 形 式 的 快速 情 立 呈 反 变换 算法 大 续 可 减少 一 


一 1 以 及 环 (0) 和 XC2 ) 的 虚 部 ,这 
的 运 委 量 和 存 赃 量 。 脸 计算 时 采 











用 的 是 分 有 裂 基 算 法 
二 、 使 用 说 明 








1， 子 函数 语句 
void irffgxsany 


2， 形 参 说 明 


n 一 - 整 型 变 莽 。 数 据 长 度 ， 必 须 是 2 的 整数 次 拖 ， 即 n 一 2。 
x 一 - 双 精 度 实 型 一 维 数 组 ,长度 为 n. 开 始 时 存放 具有 共 罗 对 称 性 的 复 序列 X( 相 ) 


的 前 豆 十 1 个 值 , 其 存储 顺序 为 FReC0) ,ReC1)，…R 








c() Im 了 一 Dr ,Im ,其 中 


ReC0) 一 X(O) Re(3 一 买 ! 2 )。 最 后 存放 变换 钻 果 xf 人 (一 0 1 一 1)， 这 里 人) 

















是 实数 ， 
四 .了 郴 数 程序 ( 文 件 名 :ifft,c) 


共 include ”math. hy 


void irfftgxyay》 





Int 口 ; 

doublce x[L 

Int ijky myil 2 34151617,18, nnd ,ng 
了 4 


1 8 





doeuble aveya3tlt2yt3td,t5ycelycc3ysslyss33 
for 避 王 1 一 1ii<16 和 1 十 十 》 
{ mm 
j] 一 也 <j; 
证 《jj 一 一 n) breaky 
} 
n2 一 了 2xDn 


for (kk 王 1ik<cmisk 十 十 ) 


{is 一 人 

地 一 Dn2i 

n2 一 nm27A2 

n4 一 n2/4} 

8 一 hd 

e 一 6. 28318530718/n2; 

do 

{ for 人 一 sii<aii 十 一 二 ) 
{ 让 一 让 

记 一 谋 十 md4; 
刘 一 i2 十 了 4 
一 刘 十 md; 


仁 一 X[ 让 ] 一 x[i3 了 ]; 
x[ii]l 一 x[it] 十 xfi3j3 
X[i2 一 2#*xXTi2; 
xf[i3] 一 tl 一 2xx[id]; 
xf[i4] 一 tl 十 2x*x[id]; 


让 (npn4 一 一 1 ) continuey 
这 十 一 na; 
这 十 一 ng; 
13 十 一 n8; 
让 十 = mn8i 


t 一 《xfi2] 一 xDl])Aeqrt(2.0)， 
t2 一 《x[i4] 十 xE3J)Asqrt(2.075 
x[i 计 ] 一 xi 十 xfi2]y 
X[ 记 2] 一 xd4] 一 x[Li3] 
xf 一 2x( 一 t2 一 tl ); 
X[ 计 ] 一 2x*《(《 一 记 2 十 tl) 

} 


襄 一 2+# 记 一 2 


中 
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7 了 6 


记 一 村 芝 坦 ; 


;while (is < on 一 1) 7 


引 一 习 ; 


for (一 13J<ngii 十 十 ) 


(63 二 号 关 8i 
ecl 一 cos(a) ， 
ss 一 Sinka)y 
ee3 一 “osfaS 
583 一 SICaGSD 1 


和 一 人 一 】 下 es 


和 
记 一 2xn2 
oa 


fr 和 =-s5< 一 人 一] 5 一 上 十 it) 


(一 1 一 ji 
12 一 11 十 了 4 
i 一 12 一 md 
址 一 1 十 di 
16 一 1nd 一 外 


这 一 1 小 ds 





训 一 17 十 4 

t 一 Xil 一 x[Li62 
x[ 计 |] 一 x[ 十 x06 3 
上 一 x[Li5l 一 xLi2]; 
x[Li5] 一 x[0i2] 十 x1i5]; 
13 一 x[i] 一 xli3]; 
x[i6， 一 xli8] 一 xli3]; 














td 一 X[Lid] 二 Xi] 
xi Xi 一 xi7] 
t5 一 tl 一 芭 4 

tt 一 tl 十 td 

td 一 1 一 t33 

t2 一 tt 十 t34 


X[Li3 一 t5xeel 十 14x#rSssSli 
xf[i7] 一 一 td#ecl 十 计 xsS11 
X[id] 一 tHExee3 一 t2xS531 


x[Li8y 一 12xceec3 本 


} 


is 一 2#<iq 一 n2; 
id = 4xidi 
While《 is < Cn 一 1 705 
} 
is 一 0; 
这 
do 
1 for fi 一 isii<ni 一 1 十 td) 
《 讶 一 十 1; 
tl 一 xD] 
X[ 这 一 tl 十 和 Li 
x[il] 王 td 一 xLil]; 
} 
js 一 立 关 记 一 2; 
刘 一 4x 查 ; 


While fis < (na 一 ]) 5 
for GO 一 0 一 031< Cn 一 1) 红 十 十 》 


1 让 (ii<j) 
《tl 一 xD] 
x[j] 一 x[i; 
x[ 说 一 tl; 
下 一 mA2; 
whilefrk<s (ji 十 1 
1 一 j 一 上 ; 
KK 一 长 /2 
} 
j] 一 ] 十 Ki 


foer (一 ?3i< nri 十 十 ) 
xj 一 xD]Ans 
} 


五 . 例 题 
设 z= 一 3?,. 输 入 序列 为 


了 7 





先 用 
传 立 
主 表 
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一 4AI5 sin 人 ， 一 ,1 有 一 1 


实 序列 快速 情 立 时 变 换算 法 计算 其 DFT ,然后 再 利用 庄 (8 的 共 辑 对 称 性 计算 快速 
夺 反 变换 。 

数 程序 《文件 名 :rt- ID) 

划 include ”math, hn 

并 include "YYfft,eyw 

共 include ”ifft.ey 


Imaintd 》 


羡 ( 一 


fint iyns 
double xL32]; 
一 32; 
for fi 一 05i<<nii 十 十 》 
{ x[i] 一 exp( 一 15.0) <sin(6. 2831853 xi716,.0)3 } 
printfK An Originail Sequencesny” ) } 
feor 《ki 一 05i<nii 十 一 4) 

{ Printff” %10, 和 挨 10.7 和 ，x[Lij,x[ 十 1])3 
printfgr 闻 10. 7f 邮 10.7f yx[i 十 2],x[i 十 3])， 
Printf(smn2 7 

} 

ftCxyny5 

priatf (ya Tiscrete Foutier Transformsnw )j 
printfg” 内 10.。7fx[O])3 

Printig”10.7f 十 丁 闻 10.7fnvryxLl],xLn 一 1])) 
for 4 一 2 in ii 十 一 2) 

{ printff” 邮 10,. 于 十 本 托 10.7f,x[i], xn 一 问 ); 
printf(” 610. 放 十 于 反 10 7f,x[i 十 ]],x[mn 一 i 一 1]); 
bprintifrsn yi 

} 

printfg” 邮 10. 于 ”xx[CnyA2])) 
printfg” 由 10. 于 十 本 几 310.7fnavxLnA2 一 1 一 x[a72 十 1]7; 
for (一 29i<cn728i 十 一 2) 

{ printff” %10, 于 十 本 此 10, ?fx[Cn72 一 让 ,一 xna72 十 条) 
PrinttK” 赂 10, 7f 十 丁 几 10.7 和 ,xx[ny72 一 i 一 引 ,- 一 xfny2 十 i 十 1); 
printiC nr 7# 

IT 竺 t 和 mn73 


Printf(7 An Jnverse Discrete Fourier Transformsnr ); 


for (一 0jii<nii 十 一 本) 


f printfft” 听 10. 于 上 10.7f,xb ,xD 十 1]); 
ptrintff” 几 10. 7 赂 10.7f ,xi 二 2] ,Di 二 31 


PrintiKy win 3 


运行 结果 ， 
原始 输入 序列 zG) 
0. 0000000 8 
0. 7659283 0. 
0.0000000 一 0 
一 0. 4493290 一 0. 
一 0. 0000000 0. 
0. 2635971 人 
9. 0000000 一 . 
一 0 1546383 一 人 


3580030 


6619886 


2100211 


3883531 
1232081 
2278259 
0722796 
1336532 


序列 < 人) 的 离散 傅立叶 变换 买 (天 ) 


2.1530673 十 本 
0.5280594 十 本 一 


6 5643121 


一 0 7478809 十 JJ 一 小 1639472 


一 0.3081588 十 本 一 
一 0.1816295 十 了 一 
一 0.128?311 十 一 
一 0. 1032356 十 本 一 
一 0.0911696 十 了 一 
一 0,.0875752 

一 0.0911696 十 

一 0. 1032356 十 
一 0. 128?7311 十 ] 

一 0. 1816295 十 可 
一 0. 3081588 十 本 

一 0.7478809 十 本 
0.5280594 十 本 





0.0351519 
人 .站 1316 
0.0060690 
0 0029832 
0.0012583 


0012583 
0D29832 
.0060690 
:131190 
6351519 
1639472 
,5 和 32 


5 


序列 买 起 ) 的 离散 情 立 时 反 变 换 


. 0000000 0 
0.7659283 0 
0. 0000000 一 . 
一 避 .4493290 一 必 . 


358003f 
661988 
2100211 
3883531 


0D. 6188410 

0- 4739879 
一 站 ,3630407 
日 .2780632 
0 2129705 
避 , 1631247 
0. 1249418 
0. 0956965 


2 28 
一 1. 595345 和 6 
一 品 , 4492625 
一 0.2297345 
一 个 18501732 
一 日 ,11137598 名 
一 D. 00959504 
一 必 0884555 
一 0.0884555 
一 0. 0959804 
一 0 1 37598 
一 必 . 150173 台 
一 吕 2297345 
一 0 4492629 
一 1.5953456 

2.72268186 


0, 6188410 
0. 4739879 
一 0. 3630407 
一 日 2785632 


全 .7 了 756864086 
吕 , 2399766 
一 修业 437442 
一 0 T407814 
0 2603209 
0. 0825889 
一 1527163 
一 避 J484504 


十 丁 一 总 5997604 
十 丁 一 06529507 
十 本 一 0 0678927 
十 本 一 和 0206389 
十 本 一 0.0087783 
十 本 一 0.0042619 
十 ] 一 0.0020239 
十 一 0.0006038 
十 0. 00068038 


十 了 9. 0020239 
十 j 0 0042619 
十 j 0. 0087783 
十 可 .0206389 
十 了 0 D678927 
十 0. 65299507 
十 了 0 85997604 
0 7584086 
0.2399766 
一 0. 4437442 
一 0 407814 


了 


一 0OOOO0N0 中 ,1232081 总 .2 20971635 已 ,2603209 


已 ,之 各 六 5 昌 了 总 22782599 上 1 日 卫 12 和 7 站. 82588 
全 站 自白 忆 扣 白白 一 自 - 昌 了 227 生 站 站 ,| 244 半 1 品 -站 . 1527163 
一 站 ,1546383 一 候 1331532 一 站 . 0956965 一 -由 全 44 呈 生 5 站 和 
3$1,.9 素 因 子 快速 傅立叶 变换 
一 、 功 能 


用 素 因 子 分 解 算法 计算 复 序列 的 岗 散 传 立 叶 变 换 。 序 列 的 长 度 是 数 集 ;2,3,4,5,7,8， 
16 中 的 一 个 或 几 个 工 素 因子 的 乘积 。 


二 、 方 法 简介 
序列 xz 的 离散 传 立 叶 变换 为 
XIR) = rn， 下 一 0 -1 


若 六 可 以 分 解 为 汕 两 耻 素 因子 的 匀 积 ， 上 
一 六 0 六 订 (CN 一 荆 (1 - 1 
那么 索 因 子 快速 博 立 叶 变换 算法 由 汉王 步骤 组 成 


1 一 维 DEFT 映射 为 多 维 DFT 
对 输入 下 标 站 作风 因子 简单 唤 射 ， 输 出 下 标 友 作 多 因子 孙子 定理 映射 


SN meod 



































一 必 ， 
了 (0 一 有 一 1 
2 Jr 
妇 = >， 和 FA meod 
其 中 忆 满足 
- 邮 下 
人 ， 六 ， 7 
并 记 
M 人 
本 了 是 ) 一 虐 7 上 一 了 
人 9 开 则 ERF | Fo 


F ， N 
世人 二 
之 At 
于 是 得 到 到 维 DEFT， 即 


晤 1 一 1 下 2 一 1 和 
四 只 站 ， 上 ， 问 
(一 忆 > o oa 
一 旦 9 一 由 1 


(一 oo- 1 
这 样 就 将 原来 长 度 为 六 的 一 维 PET 喘 射 为 长 度 分 别 为 Ni，PN:， …，Ny 的 于 竖 DFT， 
80 





WU 





从 而 一 维 长 DFT 可 用 多 维 短 DFT 实现 .下面 将 说 明 , 这 些 短 DFT 可 用 短 循 环 卷 积 来 计 
算 。 
2， 用 Rader 算法 将 DFT 转换 为 循环 卷 积 
设 户 为 素数 ， 户 点 DFT 为 
忆 ( 开 》 一 每 :sonpDm， 直 一 0 六 一 】 
将 a=-0 和 =-0 的 点 单 帮 列 出 ， 则 有 
X(o) = 信 zGo， 


真 (一 00) 十 训 伏 )， 开 一 12 光一 1 


日 一 了 
其 中 素 ( 有 ) 一 >)z(a)R 梧 ， 天 一 12 人 声 一 1 
习 查 工 
设 
= 5 “Dod 让 
半生 rnodD 户 


则 上 面 的 DFT 蕊 () 就 成 为 循环 卷 积 


了 

素 (g] 一 TEAR ， 一 1 * 四 一 2 
3， 用 winograd 算法 计算 短 卷 积 
三 、 使 用 说 明 


1， 子 函数 语 名 


VvO 记 pftCxyysnsryni) 
2， 形 参 说 明 


x 一 一 骏 精度 实 型 一 维 救 组 , 长 度 为 mn。 开始 时 存放 要 变换 数据 的 实 部 , 最 后 存放 
变换 结果 的 实 部 。 
双 精 康 实 型 一 维 数组 ,长度 为 n。 开始 时 存放 村 变换 数据 的 虑 部， 最 后 存放 
变换 结果 的 号 部 。 

n 一 一 整 型 变量 ,数据 长 度 。n 必须 能 分 解 为 mm 个 两 两 孔 素 整数 的 蒋 积 ， 即 n 一 里 
(0 xmaCly xnifm 一 1)。 

ta 一 一 整 型 变量 。 素 因子 的 个 数 。 

ni 一 一 整 型 一 维 数组 ， 长 床 为 中。 用 于 存放 m 个 两 两 孔 素 的 素 因子 。 

本 程序 提供 可 选择 的 素 因 子 为 2,3,4,5,7,8,9,16。 四 此 , 可 选择 的 最 大 =4， DEFT 

的 最 大 长 庆 n=5040。 





了 
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四 、 子 函数 程序 (文件 名 ;pft.c) 


共 include ”math. .hy 

芽 inciude "stdlib, he 

void pftfxyyy hytsni) 

iat mynyai[]; 

deuble x[ jy[ 丰 1 

fint j ,区 lit,nln2unseyi[17]， 
double ec31,c32,c5ltvc52c53e54c551 
double c71c724c73yc74c75C76c77，c78c8l# 
double c92,c93,c94c95c96，c97，c98; 
double ec162,c163,el164,c165; 
double rlr2r3sr4'r5rsTr7，T8T9r10sT11rl2:r134rl4:rl5yr165; 
douhble s1,s2,s3,s4,S54sS6,S7,S8,s9,sl10,s11,sli2,s13,s14,s15,s163 
double ty'tOvtlt2yt3ytdit5yt6yt7t8yt9; 
double *ayxbi 
c31 一 一 0.86602540; CC32 关 一 1.5， 
c51 一 0. 951056524 c52 一 一 1.53884180; 
c53 一 一 0. 363271265 ec54 一 0 559016998 了 
c55 一 一 1.25， 
c71 一 一 1.16666667 c72 一 一 0 79D156474 
c73 一 0. 055854267; c74 一 0,.7343022 ， 
ta75 一 0, 440958551 c76 一 一 0. 340872933 
c77 一 0.53396936; ec78 一 0. 874842291 
C81L 一 0 7 了 07106781 
c92 一 0.939692621 c93 一 一 0. 17364818; 
c94 一 0 7686044444 CC95 一 一 口 .5 
c96 一 一 吕 34202014; 297 一 一 0. 984807755 
Cc98 一 一 名， 06427871 
cl162 一 0. 38268343; cl163 一 1. 306562974 
cl64 一 0. 541196103 c165 一 0. 923879531 


for 企 一 0iKE<mik 十 十 》 
{ nl 一 ai[k]; 
n2 一 mnAnli; 
fior 人 一 09j<cajij 十 一 nl) 
{ 一 j; 


iL1] 一 j; 





for 人 和 一 2 一 一 Dil 十 十 > 
{ it 一 让 十 2 
证 《 许 六 (一 1 二 一 放 一 了 
让 吉 j 一 it 
} 


swjitch《 nl ) 
{ case 2 

{ ri 一 xbHliji 
xDiFl 一 蕊 十 xDL2]]; 
xHL2 一 z1 一 xLiL2]; 
红 一 y[CiL1 
yEiLaT]=c 世 十 [LiE23]， 
y[if[2]] 一 红 一 y[i[2]; 
breaki 

} 

Case 3: 

{ 了 一 XiL2] 十 xfCifL31 
Tr2 一 (x[iL2] 一 x[iL3 了 xce315 
xf[1]] 一 xfif[i] 二 rl; 
trl 一 xfif1] 十 rl xc32; 
si 一 yfif24] 十 yG[L3]] 
s2 一 (7[iL2] 一 y[iL3]>#e3]18 
yED] 一 yEGC1i 十 sli 
Ss1 一 YLiE1]] 二 sl1 xce321 
xfif2]] 一 rt 一 s24 
xfiL3]] 一 fr1 十 s23 
yfi[21 一 s1 十 r2; 
y[if3]] 一 s1 一 r24 
break ; 

} 

CaSse 4: 

{ TEL 一 xLift] 十 xiL3]J; 
地 一 X[LiL1 和 一 xLiL3]; 
2 一 x[i[L2 十 xliLt]]; 
xfPiLlj]=rl 十 rz2; 
xf[ 让 3]] 一 z1 一 r2# 

红 王 yi[L1] 二 7LL3J]i 
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t2 一 y[iL1]] 一 y>LiL3; 
r2 一 y[ 让 2] 十 了 [让 4]]; 
yEiL1L1 一 了 十 f2， 
y[LiL3]] 一 rl 一 r24 

rl1 一 XLiL2 一 xLiL4]]; 
r2 一 y[iL2]] 一 yLiL4]]; 
xLiL2]] 一 t1 十 r21 

x[ 计 4]] 一 t1 一 2 

中 计 L2 一 t2 一 tl 
yLiLd4]]j 一 t2 十 z1+ 
break; 

} 

Case 5: 

{r1 一 x[iC2]] 十 xDLS jj; 
区 4 一 X[iL2J 一 xliL5J]; 
IT3 一 x[Li[3]] 十 x[iL4]]# 
r2 一 x[iL3 了 一 xciL4]]; 
t 一 《Fr1 一 r3)7 xc544 
I 一 T| 一 734 
xLiL1]] 一 xLiC1]] 十 zli 
Il 一 xPi[C1I]] 十 rl xc554 
T3 一 z1 一 1 
r 一 z 十 t+ 
[ 一 《人 T4 十 T27XC51i 
4 一 t+ 十 T4%#C52 
T8 一 tt 十 I2 <C33; 


红 1 一 yLi[2]] 十 7L[L5]]， 
s4 一 Y[iL2]] 一 Y[iL5]]; 
s3 一 y[iL3]] 十 yLiL4]] 
s2 一 y[iL3J] 一 y[i[d4]33 
t 一 《ss 一 s3) #r545 
sl 一 sl 十 s34# 
yLi[1 林 一 yGL1]] 十 s13 
sl 一 yCLL]] 十 sl xce554 
S3 一 8 一 ti; 

s1 一 s1 十 t+; 

t 一 (sd4 十 s27 基 ec5ls 


S 和 4 一 t 十 ss 相关 CD23 


S 了 一 tTSU 基 CI35 














XLiL2 | | 一 IT] 十 S2 1 
X[iL5]] 一 r1 一 s23; 
x[iL3]] 一 r3 一 s44 
x[iLd4]] 一 r3 十 s43 
y[LiL2]4 一 s1 一 +23 
y[LiL5]] 一 s1 十 rz21 
yLi[L3]] 一 s3-Hrd; 
y[ift4 一 s3 一 z4; 
break; 
} 
case 7 了 7， 


fr 一 zfi2]] 十 xiL7 习 ， 























r6 盖 X[iL2]] 一 xLL7]]， 
s1 一 y[iL2]] 十 yLiL7]]; 
s8 一 yLiL2 习 一 yLit7]]; 
Tr2 一 x[LiE3]] 十 xDif6]]; 
*5 一 xLiL3]] 一 xfiL6]]， 
s2 一 y[iL3]] 十 yfiL6]J; 
s5 一 y[iL3]] 一 yLi[L6]]; 
r3 一 x[Li[L4]] 十 xLiL5]]; 
r4 一 xLiL4]] 一 x[ifL5] 
s3 一 7[Li[d4j 十 Lif5]J; 
s4 一 y[it4]] 一 [LiL5JJ; 


tt 一 《tr1 一 ?2 ed 

t 一 《r1 一 Y33 x#e721 
rrL1 二 TY2 二 T31 
xf[iC 习 一 xCiL1j 二 rli 
tl 一 xXLiL1] 二 riyc71 
fr2 一 《r3 一 IT27 #C731 
fr3 一 I 一 t 十 r25 

T2 一 +1 一 TI2 一 t3+ 

寻 一 IT1 十 t 十 t35 

t 一 4r6 一 r5》xC7g; 

t3 一 (r6 十 rd4)》 ec76; 
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I6 一 《T 有 十 T5 一 T4) x#C753 
r5 一 (T5 十 r4] #c77# 

IT 一 T 有 一 t3 十 +53 

TD 一 I6 一 T5 一 二 

TS 一 76 十 t3 十 ti 


t3 一 〔s1 一 S2) C7d; 

t 一 《sl1 一 s37 xce72， 

8 一 sS1 十 s2 十 s3; 

yLiLIi] = 一 Li]] 二 sl; 

sl 一 yY[LiL1]] 十 six#c71; 
”2 一 (as3 一 8S27 Ce73; 

s3 一 s1 一 ! 十 s2; 

sS2 一 S1 一 S2 一 t34 

S1 一 S] 十 t 十 t3# 

t 一 (86 一 8S5) +#C78; 

t3 一 《6 十 s47x<c76; 

S 一 《sf 和 十 S5 一 S4) xcC758 

s 一 《S5 十 547 3 C77， 

sd4-86 一 t3 十 s5; 

55 一 5 有 一 S5 一 [# 

sf 和 一 86 十 t3 十 ti 


xLiL2]] 王 +3 十 s4 
xEL?3]] 一 r3 一 sd4; 
x[LiL3]] 一 十 s6; 
fi[6]] 一 ?1 一 86; 
[itL4]] 一 r2 一 "5; 
Xx[iL5]] 一 r2 十 s5; 
7[LiL2]] 一 s3 一 r4; 
y[LiL7J=s3 十 rz4; 
了 
了 


包 


风 





[CiL3] 一 sl1 一 r6; 

LiL6J]]=s1 十 r6; 
y[LiL4]] 一 s2 十 r5; 
?LiL5]] 一 s2 一 r53 
break; 

} 


Case 入 











《tt 一 x-i[]]] 十 x[i[L5]] 


r2 一 x[iC1j] 一 x[CiL5]] 


r3 一 x[i[2]] 十 xCi[8]; 
r 和 一 XLi[2]] 一 xCit8]]; 


r5 一 xfiL3]] 十 xbEi[7]， 
r6 一 x[iL3 一 xLL7]]， 


Y7 一 X[LiL4jj 十 xDiL6]]; 


TY8==x[iLd4]] 一 xCiL6]]; 























t] 一 TI 十 z54 
t2 一 红 一 753 
t3 一 Y3 二 17; 


T3 一 (T3 一 r7)xe8li 
xbPHiL1]] 一 t 十 t3# 
xfi[5]] 一 t+1 一 t3; 


tl 一 了 2 十 T31 
t3 一 12 一 3 
s]L 一 T4 一 18; 
r 生 一 《T 生 十 T87 关 c813 
S2 一 了 4 十 r6; 
s3 一 4 一 1 


r1= 一 y[f1]] 十 y[i[5]3; 
r2 一 yl1]] 一 yLiL51]; 
r3 一 yFi[2]] 十 yEi[8]; 
世 一 YLi[L2]] 一 yCiL8]]; 
r5 一 了 LiL3 二 十 EL7]]; 
r6 一 yiL3]] 一 7[Li[L7]; 
r7 一 y[i[4j] 十 yLi[6]]# 
r8 一 yLi[L4j] 一 y[iL6]]; 

















td 一 上] 十 +54 
tl 一 红 一 5 
TS 一 Y3 十 TY7， 


r3 一 人 r3 一 T7] <e8li 
y[ 了 L13] 一 记 十 +53 
yL[L5]] 一 t 节 一 r53 


TY5 一 rr2 十 fr33 
T2 一 [2 一 I33 
r3 一 54 一 t8; 
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rd 一 《4 十 TB) seC815 
Tr7 一 1 上 4 一 T65 
tr4 一 t44 一 T 和 1; 


中 
六 
Ce 


一 t1 十 z7; 
一 t] 一 YF 
一 ttz 十 735 
一 tt 之 一 工 3 
一 t3 十 了 4 
一 t3 一 1; 
一 +5 一 S2i 
一 55 十 S2; 
-= 一 St 
?||=r1 十 sl1+ 
一 T2 一 53 
一 +2 十 s35 


六” 
王 = 
呈 『 
[| 0 
:4 1 
31 LILIILILILI LI [ 


四 


中 浊 
1 语 1 1 


1 [ 
广 1 广 ) 塘 了 


F 














『 
[ee 


心 . 
[ L 一 上 
LE L 


Case 昌 : 


r2 一 X[LiL2]] 一 xLiL9 
Tr3 一 XiL 
+4 一 XLIL3]] 一 XL 让 L8 
Tir 


| 
1 上 
1 
了 
| 


Li 
L- 
-| 上 
了 
吕 
] 人] [ 
一 . 
呈 1 
Le 
了 
| LI LT 


5 一 式 十 和 LIL7 


中 
L_ | 
{ 


t8 一 (xf[0i 
+Y7 一 XULiLS] 
r8 一 XLi[L5]] 一 xCiL6]]， 
tO 一 XLiL1L]] 十 r53 

t7 一 X[LiL1]] -+r5 xc954 
r5 一 tl 十 rz3 十 7 
xLi[fl jj 一 tO 十 758 

t9 一 toO-hro 关 C955 

t3 一 0r3 一 TY7) 关 C92; 

T7 一 (fr 一 T7] %C834 

T3 一 人 《T1 一 737 xd4 
t1L 一 ft7 十 t3 十 T34 

t3 一 t7 一 t3 一 TY7; 

t7 了 一 4t7-r7 一 了 3 


六 
让 
L_1 
1 
四 
广 
一 。 
呈 1 
L_ 
L_ 
So 
军 
全 
C3 
二 

人 








疙 1 
由 

[ 

忆 

[ 
[1 
[L 

四 





























ea 


一- 


t6 一 《r2 一 z4 十 z8)》 半 C31; 
td 一 (T4 十 TS) 关 C965; 

入 一 (T2 一 -)》 97 
2 一 (2 十 T4)》xC983 

t2 一 18 十 t4 十 r2， 

tt 一 t 一 t4 一 T8; 

t8 一 t8 十 T8 一 T2 

















r 一 yDL2 十 yLiL9]]; 

r2 一 y[i[2]] 一 7[LiL9 了; 

f3 一 yLiL3]] 十 ytiL8]]; 

r4 一 y[iL3]] 一 7DL8JJ; 

r5 一 yit41] 十 yLiL7]]; 

r6 一 (y[it4] 一 yuiL7J-)*c31， 
r7 一 y[i5 |] 十 yHi[L6]] 

78 一 y[iL5]] 一 >LiL6]]; 

t0 一 yLiLlT] 十 r5 

t9 一 yCiL1 十 r5#c953 





r5 一 T1 十 +3 十 T7# 
yLi[1] 一 t0 十 753 
Tr5 TO 二 TY5 基 955 
tt 一 (fr3 一 +77 #e92 
TY7 一 (Tr1 一 T7)》#C93 
+3 一 Cr] 一 rz3》xe9d4s 
tl 一 t9 十 tD 十 T34 

tD0 一 t9 一 1tO 一 T73 

T7 了 一 t 十 +Y7 一 T33 
Tr9 一 (r2 一 T4 十 r8) # C31 5 
t+3 一 《tr4 十 r87 < eg96s 
TB 一 (tr2 一 T8)》 < eg97; 
+4 一 (《T2 十 rd47 xc98; 
T2 一 T6 一 T3 十 td 

IT 一 了 一 8 一 T35; 

T 有 一 T0 一 T8 一 T45 





XLi[2 门 一 二 一 T24 
xciL9]] 一 UL 十 r2i 
XLi[L3 .1 一 t3 十 r35 
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xiL8 一 t3 一 r33 
xX[Li[d 和 一 t5 一 z94 
xLi[7]] 一 t5 十 r9; 
xEHiL5]] 一 t7 一 18; 
X[LiL6]] 一 t7 十 r8i 
Yy[i 谍 2 一 *1 十 t2#; 
Lif9 了 一 忆 一 tr23 
Ci[L3]] 一 t9 一 td 
[LiL8]=t+O 十 td 
Li[L4]] 一 r5 十 t6 
[i[7]] 一 *5 一 t64 
y[LiL5]] 王 r7 十 t8; 
y[LiL6]] 一 r7 一 t84 
break 
4 
case 8， 

{zrl 一 xfiLl]] 十 xLi[9J]; 
r2 一 x[i[1]] 一 x[i[9] 
r3 一 x[iL2]] 十 xiC10 
Tr4 一 XLiL2]] 一 xLiL19 


] 
] 
-TY5 一 xfi[L3]] 十 xi[111; 
] 
] 





和 ] 








站 
时 


r6 一 &[i[L3j] 一 xfCi[Clla 
IT? 一 XiLd4]] 十 xbiL12] 
r8g 一 x[iL4]] 一 x[Ci[C12 
+9 一 X[ 证 5]] 十 x[Pi[13]]， 
rl10 一 x[LiL5]] 一 xiL13]]， 
zl11 一 XEL6]] 十 xUtLIi4]] 
rl2 一 xCiL6]] 一 xGL14]]; 
r13 一 x[iL7]]j 二 xbELl15]]， 
r14 一 x[i[L7 了 ] 一 xi[15]]; 





和 














r15 一 x[i[8] 了 十 xLi[16]]; 
r16 一 xLiL8]] 一 xLi[16]]， 
tl 一 I 夺 十 T91 
t2 盖 TL 一 19| 
t3 一 T3 十 Tll 
t 弛 一 绍 一 8l1; 
t 一 25 十 tl3 
tf 了 一 I 一 上 l35 














t7 一 T7 十 T195; 
t8 一 TIT7 一 上 15 
于 一 tl 十 t5; 
TI3 一 tl 一 1 
r5 一 t 十 ts; 
tr 一 1 计 一 7 


XLi[Cl]] 一 Tl 十 r5; 
xLi[9 ] 一 ?一 T5; 
计 一 《td 十 如 )#C81; 
t5 一 [td 一 18) iegl; 


9 一 1t2 十 to 
T11 一 {2 一 tt5# 
Trl13 一 tt6 十 tl 
rt 一 0 一 ts 
让 一 14 十 Ti16; 
t2 一 TI4 一 16; 


tt 一 (rr6 十 47 关 Cg 
td4 一 《tr6 一 +14)》 关 eg8li 
t5 一 1 十 工 2 

ft 站 一 IT8 一 工 123 

t7 一 (t2 一 t6)xcl6238 
t2 一 Cl163xt2 一 7 
t6 一 el6d4xte 一 tt7 


t7 一 站 2 十 让 
让 一 TI2 一 1 
IT 一 7 十 2# 
tf 和 一 t7 一 24 
tr 一 1 十 ti 





T& 一 1 一 6; 

47 一 人 1 十 TS》 关 忆 1 有 呈 
{t2 一 tt 一 个 关 如 1644 
t4 一 tt 一 tx<Cl83， 
tB 二 TD 十 Tt3; 


t 一 TO0 一 T3; 
tl 一 1t6 十 t2s 
rl2 一 t6 一 t2; 
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rl 一 7[iLlJ]] 十 YiL9] 


s2 一 yDI1]] 一 yiL9]] 
s3 一 y 让 2]JTyoir30] 


sd4 一 y[iL22 一 yi 19 
rz 一 y[iL3 了 十 yi ll 


s6 一 中 让 3 yiDiLITD 
s? ==y[i[4] -上 y[Lirl12] 


L_ 1 L-- 


Ce 


1 1 上 L JI 





s8 一 y[Li[L4]] 一 y[iL122.3 











s10= 一 y[iL5|]]--yL[13 























s]2 一 yDL6 一 yiL14 
sl13= 一 yLL7 了 十 yLitl5 
s14= 一 y[i 记 7 7Lil15 
sylilg8l| 二 viL16 
s16 一 7[LiL8 一 y[i16 








td 一 53 一 511 
15 一 1 十 sl3 
t6 一 1I5 一 S13 





9]] 一 tl 一 上 
xfi[ 5]] 一 +3 一 s7; 
xl 让 13]] 一 rr3 一 87; 


yPLiL 1]] 二 rl1 二 5 
[ 吕 











y[iL 5 ] 一 s3 一 T74 
yiL13]] 一 s3 二 r7， 
计 一 《td4 一直) 区 S13 
语 一 【td 一 Tc81i 
5 一 12 1T55 


]] 十 7[i[L13 24 


s1L1L 一 y[ 让 6]] 十 FLIL143 


1 


了]]; 
了 ， 
一 站 于 
]]， 


一 








sl11 一 t2 一 to; 

s13 一 46 十 tl 

s]15 一 划 一 菩 L; 

tl 一 5s54 十 S13; 

t2 一 sd 一 S10; 

t3 一 《6 十 S14)7<#e8ls 
tt 一 TS6 一 s143XCc8li 
t5 一 SS8 十 S1L23 

t6 一 88 一 St2; 

t7 了 一 kt2 一 区 sxCL625 
t2 一 C163#t2 一 《7 
t 一 《104#te 一 17; 


t7 一 s2 十 14; 
t8 一 S2 一 14; 
s2 一 17 十 t2; 
s 生 一 7 一 12i 
S6 一 1 十 t6; 
s 一 1 一 1t6， 


t 一 人 tl 十 》 关 CS 
t2 一 t -一 txel644 
由 一 17 一 tcl163; 
tf 和 一 sl 十 t3; 

tg 一 5S10 一 1t34 

s]10 一 t6 一 tt25 

S12 一 区 一 t2; 








sS14 一 t 十 

sS16 一 t 一 tdi 

x[i[ 2]] = r2 十 s10; 

Xx[i[16]] 一 +2 一 s10i 

xLi[ 3]] 一 t+9 十 s13; 

xiiLt5]] 一 r9 一 s13i 
[iL 4 ] 一 T8 一 sl16; 
[iLl14]] 一 T8 十 s163; 
[iL 6] 一 z6 十 sl14; 
[ift12 一 26 一 s14; 
[ 记 7]] = YL 一 s15; 
[if = *11 十 s15; 
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本 ] [ 1 
0 呈 
广 『 
上 导 
Cu 人 
上 | 】 [ 
二 DO 器 1 


】 
L_ 


上 
[一 


1 


上 下 


L 1 


上 














一 1 上 4 一 S12; 
一 1T4E 十 S123 
一 S2 一 工 ID; 
(一 SS 十 T10; 
一 8 一 T13; 
一 8S9 十 rrl3; 
一 SR +16i 
一 SS8 一 T163; 
一 SB 一 Tl4; 
一 S6 十 T14; 
一 s11 十 T15; 
一 8L1 一 +Y135# 
一 sS4 十 rl2; 
一 S4 一 T12; 


4 一 tnalloc(n x* sizeoftdouble7); 


nse 一 
for (一 0IK<imiK 十 十 ) 


unsc 一 unse 十 nniLk]; 


unsc 一 Unsc 吧 ni 
1 一 0 
for 人 一 0k<ngsk 十 十 》 
{a[kj 一 x[l]; 
b[k] = y82 
1] 二 | 十 unscs 


inallocfn * sizeoffdouhley7， 


让 《> tn 一 1) 1=1 一 ni 


} 
fcer 《三 和 ?<cns 十 十 》 
{xLk] = afk]; 
y[k] = bfkJ; 
全 eef《 才 7 
free(b)y 














} 





五 . 例 题 
设 输 入 序列 zC) 为 
(一 总 ， 主 一 性 一 
其 离散 博 立时 变换 为 
一 上 一 忆 一 ae , 拉 -一 
人) 一 一 人 9 一 用 1 1 


这 里 厂 =e 二， 选取 @=0.9 上 7 0.3,m 一 45 一 5X9,zr 一 2, 用 素 困 子 FFT 算法 计算 离散 
情 立 时 变换 XRD) 。 
主 郊 数 程 序 ( 文 件 名 :pft,m7， 

并 incliude ”rmath. hy 

林 include ?Pp 扩 cew 

main() 

{ int ijnmonilL5 

doubje alya2 5XL45]，y[45]; 


已 一 453 

如 一 2; 
ti[L0] 一 5+ 
niL1] 一 9 
al 一 0.9; 
82 一 0 33 
xL0] 一 1. 0 
y[0] 一 和.03 


，for 《一 1H<caii 十 十 ) 
{ xi 让 一 ax#x[1] 一 82x7y[ 一 菇 ) 
y[i] 一 a2xxCi 一 1] 十 alxy[i 一 1]; 
} 
pft(xyynrryni23 
printft(vsa DISCRETE FOURIER TRANSFORM" )3 
for《ki 一 0iicaA2i 二 十》 
(fior (一 05j<2jj 十 十 ) 
Printt(” 多 10. 守 十 本 后 10.7f zxL2 xi 站 7[2xi 十 让 ); 
Printtt sn 7) 
} 
Printf gw 吃 11.7 十 丁 迪 计 ,7fnr xn 一 匡 7La~1]78 
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离散 傅立叶 变换 筷 (R)(E 一 0 1 44) 因 


























1.2953730 十 可 3.0058661 2.47863272 十 本 5.0363348 
I3. 1953398 十 ] 8. 5064906 4.2704752 一 一 8.6202298 
0911888 十 本 一 4253341& 0.6697366 十 了 一 2.7314755 
0. 3571460 十 ] 一 1.9950949 0.5172978 十 一 1.5612874 
4.501t5426 下 一 1.2737836 0.4954450 十 了 一 1.0678105 
0. 4937041 十 本 一 0 9117504 0. 4940833 十 J 一 0.7883934 
0. 1955443 十】 一 避 6875687 0,. 4975721 十 一 0.6028767 
0, 4998993 十 」 一 0.5300837 D. 5023842 十 本 一 0.4662714 
0. 5049513 十 一 0.4093561 1 5075622 一 本 一 0.3578036 
0.5101999 十 本 一 93104517 ,5128600 二 本 一 02663966 
0.5153484 十 一 沙 2249168 0,.5182683 十 本 一 0.1854205 
0.5210390 十 一 0 1474081 0.5238755 一 一 0.1104456 
0.5267981 十 本 一 0.0741421 0.5298309 十 本 一 0.0381338 
0. 5330024 十 ] 一 00020681 0.5363465 一 了 0.0344097 
9. 5399041 十 了 0.0716705 0D, 5354372354 十 了 0. 1101173 
0. 5478722 十 本 0. 15020290 0. 5524231 十 0. 1924535 
0.5574789 一 了 0.2374986 0.5631718 一 了 0D. 2861126 
0. 5696785 十 本 0.3392738 0.5772418 十 j 0. 3982506 
0.5862035 十 ] 0.4647333 0.5970602 十 j 0. 5410392 
.86105692 十 ] 0.6304493 0. 6278819 十 了 本 0,7377841 
0. 6509801 十 了 0.8704402 0.6833236 十 了 1.0403943 
D.?316137 十 了 1.2683083 0.8104348 一 本 1. 5937721 
0.9570999 十】 2. 1007988 


1.10 Chirp Z- 变 换算 法 


一 、 功 能 
在 Z 平面 单位 圆 上 计算 有 限 长 序 询 x(z) 的 变换 的 采样 值 。 
序列 xGn 的 DFT 实质 上 旺 其 2- 变换 X(z) 在 Z 平 而 单位 加 上 等 间隔 采样 点 x 一 弛 
& 处 的 采样 值 , 但 实际 应 用 中 , 往往 只 需要 对 信 呈 的 一 小 段 频带 进行 高 分 辩 率 分 析 , 这 时 
通常 使 月 Chirp Z- 灾 换算 法 。 

二 、 方 法 简介 


设 *(z)? 是 长 度 为 N 的 序列 ,其 傅立叶 变换 为 X(e”)。 在 单位 圆 任意 一 段 红 上 等 间隔 
地 了 权 夺 个 频率 点 
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由 一 节 十 Ra4u 一 01 一 1 
式 中 mw 为 起 始 频率 ,Au 为 频率 增 量 。 
在 这 些 频率 采 桩 点 上 的 博 立 叶 变 换 为 


上 于 
(eg 一 了 ze 0 
虽 呈 用 


w 1 
一 了 (ne ione 天 ， 开 一 0 一 1 
型 一 必 “ 





设 复 常数 4 和 了 克 为 

几 一 em 

全 一 e 全 

】 则 有 . 
吕 (er 一 >)4 We ，8 一 0 时 一 1 
利用 等 式 
仆 一 冯 [ 十 息 一 直 一 站 习 
可 得 
Xe = RE 六 [ro04 WU 和 
为 清楚 起 见 , 令 
上 - za)4- 1 

从 而 得 到 卷 积 形式 为 


2 W-1 
和 Ke 吉 ) 二 卫生 六 EC)F( 一 3 是 一 0 时 一 了 


立 症 恬 


如 果 mw = 0, 开 一 N， 并 且 am = 好 , 则 此 时 的 Chirp Z- 变 换 就 是 DFT。 
三 \ 使 用 说 明 


1, 子 函 数 语 名 
void cztfXT5Xiynyny tlyt27 
2, 形 参 说 明 
xf 一 一 双 精 度 实 型 一 维 数 组 ,其 长 度 大 于 或 等 于 Cn 十 mm 一 1), 且 是 2 的 整数 次 宕 ， 


开始 存放 输入 数据 的 实 部 ,最 后 存放 变换 结果 的 实 部 。 


五 一 一 双 精 度 实 型 一 维 数 组 ,其 长 度 大 于 或 等 于 十 mm 一 1), 且 是 2 的 整数 次 宪 ， 
开始 存放 输入 歼 据 的 虚 部 ,最 后 存放 变换 结果 的 虚 部 。 
整 型 变 且 。 输 入 数据 的 长 度 。 





卫 


亢 5 
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再 z-s 。 





m 一 一 整 型 变量 。 输 出 数据 的 长 度 , 即 频率 采样 点 数 。 
f 一 一 双 精 度 实 型 变量 。 走 始 数字 频率 ,对 京 于 公式 中 的 妈 , 单 位 为 Hz-s。 





6 一 一双 精度 实 型 变量 。 货 止 数字 频率 ,对 应 于 公式 中 的 垂 十 Go 一 Se ,单位 为 


四 . 子 通 数 程序 (文件 名 :czt.ec) 


并 ineludqe ”math. hy” 
共 include ”stqiib ,he 
共 ineclude "fft.e” 


woid czt(CxTyxiynmyflyf2》 


Int mni; 
deuple ff2,xrL],xi[]; 


{ nt 1 ln1l yn2lens 
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doutble eytyaryaiyphypiytrytiy# wry ywtl， sx wiyy 史 ii 
]en 一 mn 十 了 一 1; 
for 刁 二 1 一 19<16i1 十 十 ) 
{ jj] 一 2x<js 
诗 和 六 一 leny) 
flen 一 j 


break ; 


1 


wl 一 tmallocflen x sizeof(double) yi 
wii 一 malloc(len yx sizeofKdoubley)# 
wTl 一 maljoc(len * sizeof(double))y; 
wil 一 tmmalloc(dten * sizeof(double))j 
Pi 一 3, 14159265358979; 
ph 一 2.0xDpis ft2 一 7Cm 一 1 
nm]1 一 (Cn> 一 各)2 nimy 
for (一 05<n15 十 十 ) 
{ e 一 phxixir2.0; 
wr[Li] 一 cosfte); 
wiiL 订 一 sin(e)， 
wtl[D 一 wr[iji 
三 诺 一 一 次 iL; 
} 


n2 一 Len 一 nD 十 1; 


for 6 一 mii<n2i 十 十 ) 
{ wwtr[i] 一 0. 0 
wi[Li] 一 0 0 
for CG=n2ii<lenji 十 十 ) 
{ j 一 ]en 一 和 
wr[i 一 wz 
miLi 训 一 wii]; 
】 
fttCwrywiylen,1); 
ph 一 一 2.0xpi*r 代 ; 
for 6 一 Dii<cnii 十 十 》 
{ ee 一 ph 关 ji 
ar 一 cDSfe]; 
al 一 sinfe); 
tr 一 ar# WwWrL[i] 一 aixwi 订 [i; 
妇 一 aixwtlii] 十 ar 关 三 订 [i 让 ; 
t 一 xrijyrtr 一 xi[i 让 sxti' 
Li 一 xr 订 #ti 十 XiD]xtri 
xr[i] 一 Ti 


for 在 一 ni<lenjii 十 十 ) 
{ xXTr[L 一 0. 0 
xi[i]=0.0; 
} 


fttCxryxiyleny, 1)， 
for 6 一 Dji<len;i 十 十 ) 

ftr 一 xrL 计 <*wrEi] 一 xi[i 了 x wii 
xi[Lij 一 xr[ 订 # wifi] 十 xi 让 x wr-i; 
xtr[ 门 一 tr; 

} 

fttCxryxiyleny 一 1); 
for (ii 一 0;i<ctmii 十 十 ) 

Tt 一 xT[*wrlL 计 一 xi]xwilD; 
xi 一 xr0]x wil[i 十 xi[i] x wrl[i; 
xrii] 一 tr 

} 


freefywr)y 


orareeLeeeeepciriirimieraieeeerrerereemer 二 


Treetwi7t 


freefswrrly)i 





frecefwil7s 
五 、 例 题 
设 输入 序列 为 
[ 0 ， 一 0 1 
GD) 1 一 10” ，T2x 人 一 10) ，_ ， 
exp| 让 js 语 上 2 一 1011，…63 


这 是 本 章 $ 1.6 的 例子 , 它 的 频谱 有 一 个 尖峰 , 我 们 用 Chirp Z 变 换算 法 对 尖峰 附近 的 帮 
谱 进 行 高 分 辨 泰 分析。 选取 = 一 64, mm 一 200, 分 析 范 围 从 户 一 0.0 到 卢 一 0. 25, 然后 画 出 


其 频谱 图 。 





主 函 数 程序 (文件 名 :ezt, m): 


共 include ”stdio. hy 
十 inelude ”imath. hy 
柱 include ”ezt。 cy 
tmmainf ) 
tint invtnai 
double [1,[2,xyxr[512J,xiL5t21 
FILE 关 tp; 
nm 一 64; 
for 如一 O3i< 103 十 十 ) 
1 xrLi 一 0. 4 
xi[ 一 0 
} 
for (一 104<mnii 十 十 ) 
{ xtr[] 一 exp( 一 各 一 10)715.0)7 xsin06. 2831853x#〔i 一 107716.024 
xi[i] 一 0.、， 


1 
了 


再 一 0.0; 
人 2 一 0 253 
和 一 2005 
eztfCxry Xismytmy flif275 
printf(n CHIRP 7 一 TRANSFORMAny ); 
for 如 一 0 和 it<mii 十 一 2) 
(Brintf(” 闻 10. 7 十 丁 呈 10.9 和 xxrLij,xi[i?3 
printff” 好 10. 7 十 丁 狼 10.7fyxrLi 二 lxi[Ci 二 1l])， 
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Printfksny yy ) 
for(i 一 0yi<cmii 十 十 ) 
《fxr[i 训 一 sqrtCxr 让 ] # Xr[Li] 十 xi[i] xxiLiyy;} 
地 一 fopenK*ezt. daty www ; 
for 6 一 05i<cmii 十 十 ) 
《和 一 全 十 ix (ft2 一 刘 mn 一 1); 
fprintfKfp ,”o6f 邓 fn xyxr[i]); 


closefttp)i 

送行 结果 ， 

Chirp Z- 变 换 的 前 20 点 数据 为 ; 
2.4716438 一 本 一 b 0000000 2.4593515 
2. 4236981 一 本 一 0.4431982 2.3680238 
2.2968822 十 了 一 0.8501945 2.2148079 
2. 1250899 十 本 一 ]，2140898 2.0288847 
1. 989243178 十 了 一 1 5566124 1.8098659 
1. 6793298 十 丁 一 1.8975963 1.5291442 
1.3566765 十 ] 一 2.2251580 1. 617561 
0. 9469668 十 了 一 2 4976831 0 了 17197 入 
0. 4785472 十 本 一 2.6774518 92368496 

一 0.0037841 十 本 一 2 7629584 一 0 2420132 


输入 序列 zG) 的 频谱 如 图 ?一 1 一 2 所 示 ， 





图 2 一 1 一 2 序列 zx) 的 频 谐 


十 了 
十 了 
十 J 
十 可 
十 了 
十 J 
十 J 
十 本 
十 了 
十 了 


一 0 
一 避 ， 
一 1， 
一 1. 
一 1， 
一 人， 
一 2 
一 >. 
一 2. 
一 2 


2242989 
6525196 
0365765 
3862879 
72971207 
0652549 
3712392 
6002902 
73D4486 
7798645 


101 








第 二 章 ，” 快 速 离散 正 交 变换 


8$2.1 快速 哈 特 革 (Hartley) 变 换 


一 、 功 能 
计算 快速 哈 特 药 (Hartley) 变 换 ， 
二 、 方 法 简介 
实 序列 za) 的 离散 哈 特 菜 变 换 为 
XC0D= zoneasG2ob， 一 0 N-1 


将 序列 zz) 按 序号 二 的 奇偶 分 成 两 组 , 即 
(2 





nm 一 0 一 1 
Te(2) 一 (2 十 1 2 
因此 ,zca? 的 离散 啥 特 菜 变 换 可 表示 为 
必 上 
XRD) 一 全) aa)cas( 人 2 十 袜 = Cocas( 生 (32 十 1) 有 
妈 


设 妆 (GD 和 ae) 的 内 /点 离散 哈 特 革 变 换 分 草 为 和; (有 和 古 s(C) ,并 记 e(&) 一 cos 
5( 呈 ) 一 sin 和 ， 我 们 得 到 

7 
X0D = XOD [ex + 一 友 ] 


X( 守 十 全 一 世人 一 | exe 十 CDX:( 全 一 站] 


1 ， 
EN N_ ，，- 本 
XXX 一 有 一 总 全 一 二 | ODN 一 ce: 避 | 








KM 一 不) 一 和 (人 一 点 ) 一 5()X() 一 DC 一 介 | 


AN 
下 一 01 过 | 


通过 上 面 的 推导 可 以 看 出 ,六 点 的 离散 哈 特 莱 变 换 可 以 分 解 为 两 个 N72 点 的 离散 哈 
特 菜 变 换 , 每 个 NA/2 点 的 离散 哈 特 莱 变 换 又 可 以 分 解 为 两 个 NA 六 点 的 离散 哈 特 莱 变 换 。 
依 此 类 推 , 当 六 为 2 的 整数 识 寡 时 (CY 一 2 ) ,由 于 每 分 解 一 次 降 人 长 一 阶 竹 次, 所 以 通过 于 
次 的 分 解 ， 最 后 全 部 成 为 一 系列 2 点 离散 哈 特 业 变 换 运 委 。 以 上 就 是 按时 间 负 取 的 快速 
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离散 哈 特 莱 变 换 (FHT) 算 法 
离散 哈 特 莱 反 变换 为 


师 一 1 
z(CD 一 方 之 和 CDDcas( 季 ni) ， 天 一 上 1 一 工 


显然 ， 除 了 常数 因子 1/N 之 外 ,， 它 与 离散 哈 特 莱 正 变换 具有 完全 相同 的 结构 。 因 此 , 离 
散 哈 特 莱 反 变换 与 离散 哈 特 莱 正 变换 可 以 共用 一 个 程 记 。 


三 、 使 用 说 明 


1， 子 函数 语句 
void fihtkCxyn) 
2， 形 参 说 明 
x 一 一 双 精 度 实 型 一 维 数组 , 长度 为 n. 开始 时 存放 要 变换 的 实 救 据 , 最 后 存放 变 
换 结果 。 
na 一 一 整 型 变量 。 数 据 长 产 ， 必 须 是 2 的 整数 次 幕 ， 即 n 一 2。 


四 、 子 函数 程序 (文件 名 :fht,e) 


芽 jnelude “math. hy 

void fhtkxyn) 

int mn; 

qcoumble x[ jj; 

Tint ij kmll,12,13,14nln2,n4; 
double ayeycysytytl yt2s 
for 0 和 一 1:,i 一 Ji<165 十 十 ) 


1 一 











] 一 xj 
让 下 一 一 ny break 
} 


nhl 一 一 
for 司 一 0 一 Dil<ccnlii 十 十 》 
+t 计 ii< jy) 
ft 一 xD]; 
xi] 一 x[D]， 
xLi] 一 tt# 
】 
上 一 nrA2; 
while (kk < 所 二 1) ) 
人 1 一 一 Ki 
K 一 其/2; 
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} 
] 一 j 十 Ki; 


for 人 一 0ii<nii 十 一 2) 
ft 一 入 [ii 


x[i] 一 革 十 xLi 十 1]; 
x[i 十 1] 一 tx[Ci 十 1]; 


1 
了 


n2 一 1 
for (一 2 中 二 一 ma 十 十 ) 
:了 和 一 腾 2 
n2 一 了 4 十 nd 
nl 一 mn2 十 n2# 


e 一 6283185307179586An1: 
for 0 一 Onj 十 一 Dl1)》 
{ 12 一 j 十 mn2; 
13 一 j 十 n4i 
14 一 12 十 n4; 
t 一 xf 人]; 
x_j] 一 t 二 x[L12] 
x_12] 一 t 一 x[12]， 
t 一 X[13]; 
x[13] 一 (十 X[14]; 
x[l4] 王 t 一 x[14]， 
引 一 所 
for G=1ii<<nd4ii 十 十 》 
{ 1 一 二 和 
12 一 j 一 1 十 n2; 
13 一 11 -mn2 
14 一 过 2 十 hn2 
C 一 COS (8 
SS 一 SinCayi; 
tl 一 X[L13]x*e 十 K[L14]x si 
t2 一 XXL13] # 8 一 其 14] xcey 
了 一 (十 1 闪电 
t 一 x_11]; 
xtil] 一 t 十 tl1; 
x[13_. 一 t+ 一 tl 


t 一 X[12]; 
区 [12] 一 t 十 t2 


XLd] 一 + 一 t2; 
} 

》 
} 
五 、 例 题 
设 输 入 序列 zf 为 

| 0 ， 一 0,19 
xz 一 i 一 101 .，T2xG 一 10) 
exp| - -了 | sin| 生 |， ji = 10,11，… ,31 


选取 序列 长 度 * 一 32， 计 算 其 离散 险 特 莱 变 换 。 
主 果 数 程序 (文件 名 :tht.my): 
柑 lnclude "math. hy 
相 include "fht.e” 
Tain( >》 
{ int imns 
euble x[L321; 
D 一 32; 
tor fi 一 0Oii<105 十 十 》 
{ x[ 订 一 0.05 } 
fer (一 1051<ni 十 十 ) 

了 fx[ 门 王 exp( 一 人 i 一 10)715.0) xsin(6,.2831853 x 《i 一 10)/16,.0)1 ) 
fhtCxyn)i 
printt(" wa DISCRETE HARTLEY TRANSFORMAn” > 
jor G 一 0ii<cnii 十 一 4) 


{ Print 3610, 7 010. 7 区] ,x 和 二 17 
PrintfCy 皮 10. 于 站 10, 97f xD 十 2],xE 二 3) 
PrintiC nx 
} 
运行 结果 ， 
序列 zx(i 的 商 散 哈 特 莱 变 换 各 人 (B) 为 
2. 060897298 1,41138135 一 癌 9471247 一 0 8476419 
一 1.5230888 站 27 本 912 一 分, 2260261 一 台 . 58913014 
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一 0 01959650 一 人 0789627 一 日 ,3726402 一 0.0878206 


一 0. 01833085 一 22888006 生 一 上 1200390 总 00224531 
一 0 1999339 一 0. 14590628 忆 , 册 有 1 510 和 4 一 0. 1389357 
一 9 1830083 如 ,19098251 一 口 , 0629875 一 0.2619540 
0 ] 忆 49758 0 0839138 一 凡 ， 5129741 0. 3621105 
D. 6329974 一 人 9488820 8. 1966895 一 4 4735182 


3$2.2 基 4 快 速 哈 特 革 (Hartley 变换 


一 、 功 能 
用 基 4 快速 算法 计算 离散 哈 特 莱 (Hartley) 变 换 。 
二 、 方 法 简介 
实 序列 zGa) 的 离散 险 特 莱 变 换 为 
xD 一 coocos( 作 0， RE 一 0,1，…NV-1 


对 xm 进行 抽取 , 即 把 za 分 解 为 
区 (2》 一 TCR) 十 区 87y 十 Ca) 十 CD 


式 中 
If 一 (4) sf) 一 (4 十 1 2 一 wd 十 2)， ay 一 下 (4 十 3) 
如 一 半 ,] ， -全 】 


设 m Ga at zeta 的 离散 喻 特 变 换 分 别 为 忆 ] (天 ) 、 买 2 大) 、 左 区 下 ) 其 天) 
那么 应 林 以 分 解 为 


大 ( 开 ) 一 下 《下 》 十 cos (2 CA 十 sin( 生 有 不 CN 一 殉 ) 
十 cos( 生 24XX， CE) 十 sin( 每 31)X:CN 一 四 


十 cos(25 3 ) 和 从 ) 十 si (34)XX， COV 一 有 


这 样 ， 就 将 一 个 N 点 的 离散 哈 特 莱 变 换 转 化 为 四 个 w/4 点 离散 哈 特 莱 变 换 来 计算 。 依 此 
类 推 ， 直 至 分 解 到 最 后 一 级 。 以 上 就 是 拨 时 间 抽 取 的 基 4 快速 哈 特 莱 变换 算法 。 
三 、 使 用 说 明 


1， 子玉 数 语句 _ 
veid fnhtd4Cxyn) 
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2， 形 参 说 明 
x 一 一 双 精 度 实 型 一 维 数组 , 长 度 为 n。 开始 时 存放 要 变换 的 实数 据 , 最 后 存放 变 


na 一 一 整 型 变 基 数据 长 度 ， 必 须 是 4 的 整数 次 医 ， 即 n 一 4 。 
四 、 子 函数 程序 (文件 名 :fht4.c) 
间 include ”inath.h” 
void fthtdfxon) 
int 刀 


double x[ 





{ 1nt 1,] ,mynlsn2n4, 1tiy112,113, 14,121 韩 22 123 243 


double aeeel CS ,号 人员，S3t1LytSt3t4 12:t13:tl4t22yt23t24; 
for O 一 1 一 13< 165 十 十 ) 


fm 一 1 
j] 一 二 站 
让 如 一 一 n) breaki 


hl 一 一 1; 
foer 引 一 0 一 0ii<nlii 十 十 ) 
{i 计 ic) 
{a 一 xD 
x[j] 一 x[]; 
x[ 订 一 ai 
上 一 mn/4 
whilge (3xk< 扫 人 十 1》) 
人 二 一 3xki 
上 一 上 /4; 
} 
j] 一 j 十 攻 ; 
for (0 一 Di<nil 十 一 4 
ftl1 一 x[i 让 十 x[i 十 1]， 
t2 一 X 和 一 xD 十 雪 ]# 





t3 一 xLi 十 2] 十 xLi 二 3]， 
td 一 X[Li 十 ?3 一 xLi 一 3j; 
XE] 一 td 十 t3， 


xi 十 1] 一 诺 一 t3; 
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xLi 十 2] 一 t2 十 t4; 
x[i 寸 3] 一 12 一 td4; 


} 
n2 一 1; 
for (kk 一 1;jk<<msk 十 十 ) 
{ 生 一 2x#m2i 
mn2 一 4xn2; 
1 一 十 #mn2 


e 一 6283185307179586m1; 
fot 如 一 Dii<nii 十 一 n]) 
{112 一 主 十 mn2; 
113 一 112 十 n2i 
114 一 113 十 mn2 
tl 一 x[i] 十 x[ll12]; 
t2 一 x[i] 一 xLl12]， 
t3 一 xfl13] 十 x[114]; 
td 一 xfll3] 一 x[lld];， 
x[Li] 一 tt 十 t3; 
xfil2] 一 红 一 13 
x[13] 一 t2 十 td4 
x[l14] = t2 一 t4; 


121 一 1 十 md; 

122 一 121 十 an2 

123 一 122 十 nz 

124 一 123 十 an2， 

tl 一 x[L121]; 

t2 一 x[L122]x sqrt(2.031 
t3 一 x[123] 


td4 一 xLl24]#* sqtrt(K2.0); 
xfl21] = 红 十 记 十 t3; 
x[Ll22] 一 tl 一 13 十 人 td 
xfl23] 一 tl 一 t2 十 1t3) 
X[l24 一 tl 一 地 一 td 


各 一 后 # 
for (0 王 1j<<nd4jij 十 十 ) 
{111 一 1 十 由 


112 = 一 111 十 mn2; 
113 一 112 十 n2; 


t4 一 了 3 十 mh2 
121 一 1 十 n2 一生 
122 一 121 十 n2# 
123 一 122 十 n2# 
1234 一 123 十 m2; 


cl 一 cos(a)y 


| 


sl 一 sirtfa] 

C2 一 goOs( 关 和 
82 一 SinK2 关 7 
cC3 一 Pos(K3 关 873 


s3 一 SIR{L3 关 昌 ) 3 


t12 一 区 [112]*el 十 交 [li22] xs 


乒 盖 人 十 1) 关 8 

t13 一 xH13]xe2 十 xl23] 
tl4 一 XLild4] 

t22 一 x[112] 

t23 一 

t24 一 Lil4]x* s3 一 x[124] 





tl 一 XL121] 十 t23， 
t2 一 x[L121] 一 t23# 
t3 一 t22 十 t243 

td4 一 tl12 一 t14# 
x[124] 一 t2 一 t31 
X[L123] 一 红 一 td 
x[122] 一 记 十 t3; 
xX[Li21] 一 t 记 十 td43 
t 一 x[111]+ti34# 
t2 一 x[L111] 一 tl3# 
t3 一 t24 一 t225 

td 一 tt2 十 t14， 
X[LI14] 一 t2 一 t3# 
xL13] 一 t1 一 td 
xfl12] 一 t2 十 t3; 
xLIL11] 一 t1 十 td4# 


< CC3 十 X_]124 
< 人 一 芭 122] 
X[113]jxs2 一 xl23] xc2y 








五 、 例 是 
设 输 入 序列 zf 为 - 


ED 一 ee 1 一】 
选取 序列 长 度 * 一 16, 用 基 4 快速 算法 计算 zi 的 离散 哈 特 菜 变换 ， 
主 末 数 程序 (文件 名 :fiht4.my): 

共 ineluda "math. hy 
芷 include *fhtd4.c7 
raint ) 
fint ln 
double xL16]; 
nn 盖 183 
fcr 和 二 in 一 十 
{ xLi] 一 exP( 一 小 5x1D5 
fht4(xya)i 
Printffsn DISCRETE HARTILEY TRANSFORMAn"* 7 
for (一 0ii<nii 十 一 4) 





{ PrintiCy 上 %10.7f 邓 10. 7f2 3x[i]x[i 二 1]) 
ptintfCw 驰 10. 下 10, ?fx0i 十 21,xLi 十 31); 
PrIinUCr nn >) 
} 
} 
运行 结果 ， 
序列 (2 的 离散 哈 特 药 变 换 和 CA) 为 
2. 5406415 2.7169890 1.9596825 1. 4693635 
1. 1740740 0 9780423 0. 8344287 6.7200304 
0. 6222505 0. 5335552 0. 4491576 0. 3665321 
0. 2875526 0. 2295771 0. 2787376 0.8393853 


Y 2.3 分 裂 基 快 速 哈 特 莱 (Hartiey) 变 换 


一 、 功 能 
昨 分 到 基 快速 算法 让 算 离散 哈 特 莱 (Hartley) 变 换 ， 
二 、 广 法 简介 


实 序列 ta) 的 离散 附 特 妆 变 换 为 
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xD= zGoeos( 和 0， 上 一 0,1，N 一 1 


将 X(E 按 序 导 丰 的 奇偶 分 成 两 组 。 当 上 为 偶数 时 ,进行 基 ? 频率 抽取 分 解 ,X(&) 可 
表示 为 


72 一 上 


天 (2R) 一 志 -xzC0) 十 并 (十 寺 全 )]cos 人 于 2z83》  ， A=01 人 一 1 
当 关 为 奇数 时 ， 进行 基 4 频率 抽取 分 解 ， 可 帮 示 为 


7 一 


_ 3 23z 
XGA+D= [ze xz 十) 十 z 售 了 2 xz 人 二 |cos( 短 wm) 








二 [zone+3) < +zCy 9 一 zCGY 一 中] 
sin( 向 2 |cos( 疝 km) 
/一 上 上 
1 1 3A7 2 
各 (4 十 3) 一 [zeo zz 十 生 ) xz( 宇 站 十 rm) jos( 生 sn) 
之 [> 列 这 六 王 2 亲 开 二 | 人 


3 、 习 、、 _ 
二 | zG+ 汪 ) zx 十 全 ) 一 (人 一 四 十 zCN 中] 


sin( 生 3m) jeos(4tm 


&01 一 1 
这 样 ， 一 个 六 点 的 离散 哈 特 莱 变 换 就 分 解 为 一 个 NW72 点 的 离散 哈 特 北 变换 和 两 个 Ny7d 
点 的 离散 哈 特 莱 变 换 。 上 面 的 Y/2 点 离散 哈 特 莱 变 换 又 可 分 解 为 一 个 mm/4 点 的 离散 码 
特 莱 变换 和 两 个 /8 点 的 离散 哈 特 莱 变 换 ， 而 两 个 Nd 点 的 离散 喻 特 莱 变换 也 分 别 可 
以 分 解 为 一 个 NW78 点 的 离散 哈 特 蒜 变 换 和 两 个 W/716 点 的 离散 哈 特 莱 变 换 。 依 此 类 推 ， 
直至 分 解 到 最 后 一 级 为 止 。 这 就 是 按 频率 抽取 的 分 裂 基 快速 哈 特 莱 变 换算 法 。 


三 、 使 用 说 明 
1 子 函 数 语句 


void sttht(Cxyny》 
2， 形 参 说 明 


x 一 双 精 度 实 型 一 维 数组 ,长度 为 n。 开始 时 存放 要 变换 的 实数 据 , 最 后 存放 变 
换 结 果 。， 


n 一 一 整 型 变量 。 数 据 长 度 ， 必 须 是 2 的 整数 次 震 ， 即 n 一 2"， 
四 、 子 孜 数 程序 (文件 名 :srfht.ec) 


划 include ”tmath。 2 
void srfhtCxyn) 
int ns 


douhbte xf 
1]1i 





{ intijkymonln2ndnayis id; 
int 111,112,113,114，121,122,123，1244 
double aa3,eycle3.sl1,s3:ststl1yt2.t3:t 和 tt5s 
fter 所 王 Ti 一 11518651 十 十 ) 
1 人 笠 一 i 
] 一 2 关于 
让 人 二 一 局》 byeak 


st 一 SqQTt(2.0)# 


D2 一 了 公关 
for (一 1 下 <m 引 十 十 ) 
1 is 一 站 
id 一 mn2; 
n2 一 交 2721 
mn4 一 mm27d4; 
n8 一 mn278， 
e 一 2831853071795867n24 
de 


{ for 《一 is;i<nii 十 一 刘 ) 
人 计 2 一 1 hd 

H3 一 112 十 ndy 
[14 盖 113 十 了 4 
计 一 x[l121 一 xLH4J; 
t2 一 xLi] 十 xl13]， 
t3 一 xil2 十 xLlid]; 
td4 一 x[i] 一 xl113 
x[l114] 王 妈 一 tl 
X[l113] 一 t4 -ti 
xl112] 一 13 


革 [ 一 12 
主 (nd4 一 一 1) continuei 
1]21 一 十 mg8i 


122 一 121 十 nd; 
123 一 122 十 nd; 
124 一 123 十 mdi 
tl 一 XL122]; 
t2 一 x[123];， 
t3 一 x[L124.3; 
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xfl24] 一 (tl 一 t3) ist; 


xllz3 ] 
和 [22 1 
xLl21 1 


站 一 人 


fxfl21] 一 tt) < st; 
t 十 t3; 
x[Ll21 1 十 12 


for 0 一 WUJ<n8i 十 十 ) 





《it 一 工 十 有 
112 = 111 十 nd 
113 一 112 十 ndy 
114 一 113 十 D4i 
ji21 一 1 十 nd 一 站 
122 一 121 十 n4; 
123 一 122 十 n4 
124 一 123 十 md4i 
83 一 号 关公 
cl 一 cosf(aDi 
sIT 一 Sin(a)i 
te3 一 Cos(a328 
s3 一 Sinta3》， 


县 一 《] 二 1》 其 瑟 中 


tS 
下 
t1] 
tt 


诗 一 节 一 
[lli] 





[Li12j 


X[L121 1 一 xL123]; 
xLll1] 一 xll13]; 

t 十 t33 

t2 一 TS 
xfl22] 一 xfl24]; 
X[LI114 |] 一 xf112 1 
t4 十 t53 

ft5， 
xLl1J 二 xtll3J; 
xll12] 十 x[l14]; 
X[121] 十 x[123]; 
x[122] 十 x[124]; 
tt Hel 十 t3 关 Si; 
t2 3% CS 一 t 下 站 S3A 
tx#sl 一 tx#els 
一 1t2x#S3 十 td4d<c3i 


一 








is 一 2x 计 一 n2i 
邓 一 寺 关 这 
上 while〔i < 《na 一 2 ); 
is 一 0; 
刘 一 4; 
do 
f forti 一 is3:i<cnii 二 一 id) 
41 一 xD， 
x 一 日 一 xi 一 1]; 
x_i 十 1j= tl 一 xLi 十 1 





1 
了 


18 一 2xid 一 2 
id 一 二 xid 
} while (is < fn 一 1) ); 


nn 一 1: * 
fr 一 0 一 Di< nlii 十 一 ) 
! 让 《 人 < j) 
ft 二 Xi; 
x[i] 一 x[i 
x[Lil 一 1; 
KE 一 了 /724 
hile《k < 人 十 1) ) 
1 盖 j 一 kk; 
KE 一 长/2; 
} 。 
j] 一 ] 十 K; 


} 
五 . 例 题 
设 输入 序列 zf 为 





0 ， z 一 0 ]， 59 
(会 )》 一 三 一 1 和 
1 | -二 汪 ] sa| 生计 岂 |， = 1043l 
4 L 15 16 


选取 序列 长 度 一 32， 用 分 型 基 快 速算 法 计算 其 离散 哈 特 莱 变 换 。 
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主 函 数 程序 (文件 名 ,srfht. my)， 


井 include ”tnath.h” 
并 incelude ”srfht. ec” 
mainf ) 
(int ivns 

double xfF32]; 

也 一 32; 


fcer 0 =DOii< 10 十 十 ) 


{ xD 一 0.03 } 


for 《ii 一 1031<nii 十 十 ) 
{ x[ 站 一 exp( 一 人 一 10)715. 0 xsin(6. 2831853 xi 一 107716.0)7 ) 


StyfhtkXxymys 


printt(n DISCRETE HARTLEY TRANSEORMAn ); 


fori 一 Dii<nail 十 一 4) 


{ Print 了 
Btintf 6” 
brintfC nr 7 


运行 结果 ， 


嚼 10. 7 
双 10, 于 


序列 zxG) 的 离散 险 特 菜 变 换 壬 ( 允 ) 为 


2. 6897298 
一 .95230888 
一 沪 . 015986690 
一 0.0183085 
一 曲 . 1999339 
一 0. 1830083 

DO.、184975 名 

.6329987 生 


一 、 功 能 


必 一 


. 纯 113815 
0 2704962 
一 和 0789627 
一 926888064 
一 中 1459628 
619098251 
0. 0835138 
一 2 9488820 


中 10. 于” ,x] ,xDi 十 1]7; 


010. 37f ,XULi 十 2] ,xf0i 十 31)3 


9471247 
.2220602861 
3726402 
,200390 
,0f615104 
.0629875 
, 5129741 
.1966895 


$ 2.4 快 束 离 散 余 怠 变换 


用 点 快速 情 立 叶 反 变换 计算 N 点 离散 余弦 变换 。 


-88476419 
.5911014 
,08782086 
02224531 
.1389357 
. 2619540 
3621105 
.4735182 


1]8 





二 、 方法 简介 
实 序 列 r(m) 的 离散 余弦 变换 为 


癌 -1 
XC0D = 六 rncos| 各 条 | ， 一 ON 一 1 


了 一 少 





其 中 
ec) -人 一 
T 9 吕 一 12AN 一 工 。 
设 
碾 ( 开 ) 一 澜 oo[G 3 十 志和 |， 古 一 Di 一 1 
显然 


Xi 一 六 ce( 有 尼 (9) 


为 了 用 FFT 计算 离 蔽 余 芝 变换 ， 我 们 定义 -个 新 序列 yn) 


ya 一 人 (2 ， 抽 一 息 ， 1 712 一 工 
Rn ， 下 一 Do 
这 时 有 
旺 王 一 1 
(4m 十 上 3 天 开 
累 ( 开 一 GDeos| 3 
2 一 上 
十 ZN 一 了 一 aeos| 名 洒 P2e | 
一 ypcot| 到 志 D4 十 Re ， 下 一 0 一 1 
用 必 用 
设 yo 的 离散 傅立叶 反 变 换 7r (RD) 为 
闻 一 1 
Yyr(bD = IDFT[y(0o03 = 二 Yoy0D0e 合 ，&= 0 一 1 
， + rm 
并 令 


于 (GD) 一 NewyrCD ，A 一 0 一 1 
从 而 zt 的 离散 余弦 变换 广 ( 旭 可 表示 为 


XC6 = A 广 cCORe[E CD 1 


天 (MY 一 中 ) -3ecoImCmree] ， 有 一 01 
由 此 可 见 , 实 序列 x(n)? 的 N 点 离散 余弦 变换 (有 可 以 用 一 个 N 点 序列 y(e) 的 离 
散人 博 立 时 反 变 换 来 计算 。 广 意 到 序列 y( 中 是 实数 ,因此 可 以 采用 实 序列 快速 人 博 立 叶 痰 换 
算法 ,以 进一步 减少 运算 其 。 
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三 、 使 用 说 明 


1.， 子 函数 语句 
void fcet(Cxny》 
2， 形 参 说 明 
x 一 一 双 精 度 实 型 一 维 数 组 ， 长度 为 n。 开始 时 存放 要 变 铭 的 实数 据 , 最 后 存放 变 
结果 。 
hn 一 一 整 型 变量 数据 长 诬 ， 必 须 是 2 的 整数 次 展 ， 即 mn 一 刀 。 


四 、 子 函数 程序 (文件 名 :fcet.ec) 


失 include "stdlib,hy 
林 inclade "mnath,hy 
共 includqde *Tfft.ey 
void ftfxsn) 
Int mi 
double x[]; 
int ivnls 
double qycys，H 了 8 
y 一 Imnalloctn x sijzeoffdoubley); 
nlL 一 mA23 
for G 一 Dii<cnlii 十 十 ) 
{y[i 一 x[2# 刘 ji 
y 人 [nm 一 1 一 让 = x[2xi 十 1 
ny _ 
可 一 本, 自 闪 BtanC1， AT2 关 襄 ) 
x[0] = y[L9]# 
x[na1j] 一 sinCnlxq7xy[nl] 
for〔i 一 13i<cniyi 十 十 》 
{e 一 cos 人 XQ)5 
中 一 SinmCL 若 5 
xf 一 cxy[L 和 十 s xyLn 一 全; 
Xx[Ln 一 训 一 s#<yLij 一 c#y[n 一 i; 
| 
c 一 1,0/Asqrt(tdouble)nyy 
x[L0] 一 cx*x[L0]; 
ce 一 sqftf2.0Ami 
ior 避 一 TU<cnii 十 十 ) 
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{ xi 一 exxb5y } 
freefy]i 
} 


五 例 题 


设 * 一 16, 计 算 序 列 xz 人 = 一 eco5G 一 0.1 一 1 的 离散 祭 流 变换 。 
主 函 数 程序 (文件 名 :fct,m)， 
村 inciuqe "math hy 
苯 include "fct er 
tpainf ) 
{ Int 1 ny; 
double xL16]; 
mn 一 16+ 
for《i 一 0ii<cnii 十 十 》 
XLi 一 exp( 一 0.5 关 ii 
fcet(Cxyn)s 
printft sn Discrere Cosine 了 ransformn” ) ; 
fcr (一 0ii<nii 十 一 4 


{ printtC 听 10. 叶 of10. 7 天 xi,xC 二 1) 
BrintfCy of 10. 于 只 10. 7f :XDi 十 2],xLi 二 37 
PriinttCy sn 35 
】 
} 
运行 结果 ; 
序列 zx( 人 (的 离散 余弦 变换 为 
0.6351604 0. 7774744 0. 5518504 0. 3706744 
0. 2518645 0 1768562 0, 1279561 0. 0950930 
0. 0718882 0. 0550200 ,0421707 0.0321278 
间 . 0239114 0.0169980 0. 0109019 和.0053330 
2.5 忌 速 离散 余弦 反 变 换 
一 、 动 能 
用 和 点 快速 博 立 上 时 反 变 搞 计 算 N 点 离散 余弦 反 变 换 。 
二 、 方 法 简介 
实 序列 丑 ( 友 的 离散 余弦 反 变 换 为 


] 


加 
SN 《22 十 1 DR 开 。 、 
xGo) = 性 之 CDXCpDeos| 各 去 | ，n 一 ON 一 1 
其 中 
有 -人 ， 丰 一 0 
1 下 二 12 一 】 
显然 ,z6 的 偶数 项 可 表示 为 


上 -上 
z(C2n) 一 Re [ bxobeeee je ，2 一 0 一 1 
闫 一 后 


为 了 计算 z(*) 巩 奇数 项 ,注意 到 
z(2a 十 1)》 一 zL2CN 一 1 一 2] 


因 厂 ， 通 过 计算 序列 CDXCDemm 的 IDFT 的 实 部 ， 可 以 得 到 离散 余 荡 反 变 换 
z (na7。 计 算 步 骤 如 下 ， 
《1 利用 实 序列 蕊 (有 形成 复 序列 了 (R) 


[2 Was 
了 人 ( 妥 ) 一 六 ecCDXCEesre 
(2) 计算 复 序列 Y(&) 的 离散 傅立叶 反 变 换 y(n); 


《3) 求 ?Co 的 实 部 ， zx 一 六 Re[y(a)] 
《4) 计算 下 式 ， 从 而 得 到 离散 余弦 反 变 换 rz(n) 。 











Jr 
2 一 们 (9 ， 01 
2 二 17 一 2 一 1 一 力 ) 2 = 0 人 一 1 
三 、 使 用 说 明 
1. 子 函 数 语句 
vDa 过 etCxyn) 
2， 形 参 说 明 . 
双 精 度 实 型 一 维 数 组 ,长度 为 n。 开始 时 存放 要 变换 的 实数 据 , 最 后 存放 变 
换 结 果 


民 一 一 整 型 变量 . 数据 长 度 ， 必须 是 2 的 整数 次 笑 ， 即 一 2 。 
四 、 子 函数 程序 (文件 名 :ifct.c) 


并 include ”tmnath.anr 
井 incluqde "stdlihb, hy” 
#include "好 t， cy 
VvO 刘 让 ctfxsny) 

imnt 立 ; 


]19 











double xj]; 
{ ipt inli; 
double qoey， 关 了 
y 一 mnallioc(n xsizeofrdeuble77， 
nhl 一 mA2i 
外 一 和 关 atarmg1 OA 关 古 ) 
X_0] 7 一 sqrt(2.071 
for 和 一 0:i<<n;i 二 一 》 
fyDj] 三 xD*sinGsxq)y ， 
和 Di] 一 [站 * eostiy 口 )# 
} 
TtCxsy ny 一 1); 
[or (一 ii nii 十 十 ) 
y[i] 一 nxex il]; 
c 一 Sqrtt2.0An)， 
for (i 一 0ii<nl5 十 一 ) 
《X[2xi 训 一 exy[， 
x[2*i 十 11 = 一 cxy[rn 一 1 一 记 ; 
} 
feetyyi 


} 
五 、 饮 题 





设 * 一 16, 计 算 序列 xDe “5 人 一 0 一 1) 的 离散 余弦 变换 和 离散 余弦 反 变 
换 。 


主 函 数 程序 (文件 名 :ifet,m): 


并 inetuqde ”math. hyw “ 





并 include ”fcet.e” 
林 include "ifct. cy” 
mainty) 
Int 1 
double xbt6]; 
nm 一 16; 
for G=0Oi<nii 十 十 ) 
X[i 让 一 expt 一 0 31 
Print sn Input Sequencewrn 7 
for (一 Dii<nii 十 一 4) 
{ PrintfCn 噬 10. 哇 狼 10,. 7f xDi]xii 十 1); 
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Brintfgy 0010; 7 电 10, 7fvn” ,xi 十 2 ,xDi 十 3]7; 
fetKx sn) ， 
Printi tn Discrete Cosine Transformwn2 7) 
ior fi 一 Di<nii 十 一 4) 


{ Print 吧 10. 于 听 10. 7f” ,xx[Lilx[i 二 1)3 
Printf tw” 咱 10, 于 2o610. 7fvn" xfi 十 2],x[i 十 3]74 
} 
ifct(xny3 


Printttrn Jinverse Diserete Cosine Transformwnar ); 
Jor8i 一 Dii<nii 十 一 4) 


{ PrintfeCn 吃 10,. ff 叫 10. 787 ,xx[i 订 ,xEi 十 1]); 
Printf (2 0 各, 于 凶 10. 7fvn” ,xxLi 十 2],xD 十 3 
} 
} 
运行 结果 ， 
输入 序列 Ci 
1. 0000000 0. 6065307 0. 3678794 f 
0.1353353 0.0820860 0,. 0497871 0 
0. 0183156 0.0111090 0. 0067379 0 
0. 0024788 0.0015034 0. 0009119 0 
序列 xG) 的 离散 余弦 变换 飞 ( 此 ) 
0. 6351604 0.7774744 0. 5518504 0 
0. 2518645 0.1768562 0. 1279561 
0. 0718882 0.0550200 0.0421707 0， 
0. 0239114 0.0169980 0.0109019 0， 
离散 余 纺 反 变 换 xf 人 
1. 0000000 0. 6065307 0. 3678794 0 
0. 1353353 0.0820850 0. 0497871 0. 
0.0183156 0.0111090 0. 0067379 0， 
0. 0024788 0.0015034 0. 0009119 0. 
2.6 =8 点 快速 离散 余弦 变换 
一 、 功 能 


用 B.G.Lee 算法 计算 一 8 点 离散 余弦 变换 


2231302 
， 03D1974 
0040868 
,0005531 


.3706744 
“950930 


0321278 
0053330 


2231302 


0301974 
0040868 
0005531 
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二 、 方 法 简介 
实 序列 zt 的 离散 余弦 变换 为 


瑟 ( 开 ) 一 总 三 cone[ 色 二 | ， 开 一 0 一 1 


其 中 
人 ， 到 一 0 
? 下 二 12 一 1 
记 
其 ( 是 ) -和 DR 儿 开 一 0 一 1 
离散 余 芝 变 换 的 快速 算法 如 下 : 


《1i) 计算 
1 一 工 们 ) 十 了 (一 1 一 5) 


瑞 (《 玫 ) 一 rzca -一 CN 一 1 一 z)]/2cos -全 - 《2 二 二 ) 奖 


刀 -一 DAV12 四 1 
(2) 计算 商 个 /2 点 的 离散 余 芒 变换 
1 
ee = 补 gCDcos 和 黄旗 
好 一 个 


生 1 一 1 
[Eee 一 之 玉 Cayecos 1 


开 一 0，NA2 一 1 
《3)》 昱 形 运 算 
人 一 全 人才) 
右 ( 卫 十 1) 一 百合 十 1) 十 所 () 
下 一 01wsNA2 一] 
这 样 戴 把 一 个 太 点 DCT 分 解 为 两 个 N7/2 点 的 DCT。 依 此 类 推 , 直至 分 解 到 最 后 一 
级 为 止 。 


三 、 使 用 说 明 
1 子 函 数 语句 


void fct8tX) 
2， 形 大 说 明 
x 一 一 双 精 度 实 型 一 维 数 组 , 长度 为 an。 开始 时 存放 要 变换 的 实数 据 , 最 后 存放 变 


na 一 一 整 型 变量 。 数 据 长 度 ， 必 须 是 2 的 整数 次 时 ， 即 n 一 2 。 
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四 、 子 阴 数 程序 (文件 名 ifet8.o) 


井 imneiude ”tmath. hy” 
+ ycid fct8fxony》 

int 5 

double xf ]; 

{ intiy jynlyn23 


doublte ty,pi:eoefL8]; 
nhl 一 mA23 
n2 一 nd; 


PL 一 3.1415926543 

t 二 X[2]; x[2] 一 x[3]; x[3] 一 ft 

t 一 x[4]; x[4] 一 xL7]5x[7] 一 xz x[5] 一 xL6];， xL6] 一 1; 
foer fi 一 0ii<nlii 十 十 ) 

ft 一 xD] 十 xbEnl 一 襄 ; 
xE 十 nl] 一 xi 一 工 Lnl 二 二; 

xD 一 ts 

} 

forti 一 Dii<cn2ii 十 十 》 

{ coef[ 刘 一 1AK2<eosff2%i 十 1)》 关 DiAK2 关 7 
coef[i 十 ni] 一 17(2<eosfK(C2<i 十 1 关 2 关 PiA(2 关 生 》)) 
coef[i 十 n2j 一 1702 eeosffn 一 (2#i 十 二 ))》 基 人 OAC2 关 下 7) 

} 

for 0G 一 05i<cn28 十 十 》 

{ xDi 二 nt1] = 一 xLi 十 al] * coef[i]; 
x[Li 二 nl 十 n2] 一 x[Li 十 nt 十 n2] # ecoef[Li 十 n2]; 

}》 

fer 各 一 Dii<mn2ii 十 十 》) 
for 看 一生 n25 十 十 ) 
ft 一 XL4x#i 十 门 十 xs#i 十 ij 十 n2J]; 
x[4#i 十 j 十 n2] 一 x[4xi 十 门 一 xT4xi 十 j 十 n2]; 
X[4 < ii 十 这 一 Tt 
} 
for〔i 一 0ii<m2ii 十 十 》 
for 人 一 05<n2ij 十 十 》 

{ xfL4xi 十 j 十 nz2] = X4xi 十 j 十 na2Jxeoeff 十 nil] 》 

for 在 一 0ii<nl181 十 十 ) 

{t 一 XL2xi 十 XL2xi 十 1 


中 
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X[L2xi 十 1] 一 x[2xi 训 一 xL2xi 二 1 
XL2 xi 一 ts 
】} 
t 一 1702x#cosfCd4xPpiA 2xny7)75 
for(《i 一 1jii<nii 十 一 2) 

《4 xL 一 xD  t 》 
for 站 一 0D<n2ii 十 一) 

{ X[L4xi 二 n2] 一 XL4xi 二 n21 二 xXL4xi 一 1 十 nl 
forti 一 03i<n23i 十 十 ) 

{ xD 二 anal] 一 xi 十 al 了 十 xD 十 na2 十 nl]i y》 
X[Lnal 十 mn2 一 xlLn2- 二 nl 十 xLnli 十 n2 一 1 一 xn 一 1]; 
for ki 一 Di 一 03sic tn 一 14 十 十 ) 

{ 放 (Ci<j) 

ft 一 XXXD]; 
x[DJj 二 x[Li; 
x[ 襄 一 让 
一 mn/2; 
和 hile(k < 是 1) ) 
1 一] 一 3; 
KE 一 k7/2， 
j 一 j 十 ks; 





， 
了 了 


xf[0] * 一 1.0/sqrt(Cdoublen)， 
t 一 sqrt(2.0Any3 
for (一 15a<<aii 十 十 ) 

xi < 一 ti 


} 
五 、 例 题 


设 上 =8， 计 算 序 列 z( 亲 一 e 20 一 0 一 1) 的 离散 余弦 变换 


主 函 数 程 序 (文件 名 :fct8s.my) ， 
井 include "math.h" 
并 include "fctg,c” 
main() 
(int ins 
double x[L8]; 
2 二 





了 一 号 
for 0 一 0N<nii 二 十》 
X 人 了] 一 expf 一 站 ,5 关 173 
fct8txyn)yy 
Printig mn Diserete Cosipne Transformne 3) 
for 人 一 05i<cnii 十 一 4) 


{ PrinttKr 听 10. 于 吧 10,. 7 和 ,x[i,xLi-i])1 
PrintE (Cn 邓 10. 于 又 10. 7 和 ,xi 二 2] 十 3] 


PrinttK mn 


} 
序列 zi 的 离散 余弦 变换 为 
0. 8820963 0.7949962 站. 3497837 号 1843335 
站 09883560 0. D609751 昌 0 033207 台 全 ,各 1570D5 之 


;2.7 N=8 点 快速 离散 余弦 反 变 换 


一 、 功 能 

用 B.G.Lee 算法 计算 六 =8 点 离散 余弦 反 变换 ， 
二 、 方 法 简介 

实 序列 Xe) 的 离散 余弦 反 变换 为 


SR 一 坊 >eCDXCDcos| 2 二 | 日 失 一 0 1 一 工 
其 中 
-人 
3 二 一 1 2 一 1 
记 


匡 ( 克 7 一 80DxG 并 一 0 本 一 工 


B.G-. Lee 和 提出 的 离散 余弦 反 变 换 的 快速 算法 奶 下 ， 
(1) 计算 
人 
再 佑 )] 一 融 ( 忠 十 1 十 到 (着 一 1) 
下 一 0 一 1 
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《2) 计算 两 个 72 点 的 离散 余弦 反 变 换 


2 一 1 


ga 一 之 人 (CO8 -人 (2 十 Re 
一 息 


2 一 1 
1 之 王 ( 呈 JCOs -一 《2 -2 -3 


阳 一 上 1 vv 一 1 


《3 蝶 形 运算 
Cn) 一 区 人) 十 下 (CA2cos 各 
5CN 一 一 TD 一 ED 一 1oD/2cos 本 1 和 


也 灶 一] 
这 样 就 把 一 个 N 点 IDCT 分 解 为 两 个 N72 点 的 IDCT 。 依 此 类 推 ， 直至 分 解 到 最 后 
一 级 为 止 。 
三 、 使 用 说 明 
1、， 子 函数 语句 


void ifetSfxzen) 
2、 形 参 说 明 
x 一 一 双 精 度 实 型 一 维 数组 , 长 庶 为 n。 开始 时 存放 要 变换 的 实数 据 , 最 后 存放 变 
换 结 果 。 
na 一 一 整 型 变量 。 数 据 长 度 ， 必 须 是 2 的 整数 次 需 ， 即 = 2。 


四 、 子 郴 数 程序 (文件 名 :ifct8.c) 


##ineclude ”math. hy 
void ifctSfxyny) 

















Lit 瑟 ， 
double x[81， 
{ inti,j nly,n2 
doubie tyPiycoefL8]; =- 
nl 一 n/2; 
n2 一 nm/di 
Pi 一 3.1415926543 
x[LO] = 一 x[O/sqrt(2.0)8 
forti 一 个 <n2i 二 十》 

{ coeft[ 订 二 17(2xeosf[2 关 i 十 17)x<Pi 2 xDn)y) 
eoet[Lij 二 nl] 一 17(2#eosffC2xi 二 1)x 人 xDiAC2 关 TD) 
coef 和 十 n2 ] 一 17(02 ceosffn 一 《2 <1 二 1)》 关 DiA(2 关 所 7 

} 
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for 和 一 0 一 Octa 一 1)3ii 十 十 》 
fri<iy》 
ft 一 基 []; 
xfi] 一 xD] 
xD 一 t5 
} 
k 一 mA23 
mhile《E < 和 二 1》 ) 
{] 一 一 ki 
KK 一 上 /2 
} 
] 一 j 十 ks 
ft 一 x[Cnl 十 n2 一 1 十 xfn1l 十 n2]; 
forfi 一 0ii<n25 十 十 ) 
{ x[Li 十 nl 十 n2] 一 xLi 十 nlj 十 xLi 十 n1 十 n2]; ) 
x[n1l 十 n2 一 1] 一 ts 
for 0 一 9i<n25i 十 十 》 
{ XL4 关 i 十 nl 一 1] 一 式 4 和 xi 十 al 一 1 十 x[4xinl 一 2 》 
t 二 17(2KeOS《 (44% PiA(C2% TD7)5 
for (一 15i<nii 十 一 2) 
{xL 一 xD*ti } 
fer 6 一 0ii<nlii 十 十 ) 
ft 一 XL2xi 让 十 xL2yi 十 1]; 
X[2*i 十 1] 一 x[2x< 订 一 xL2xi 十 1]; 
x[L2yi|l 一 
for fi 一 0ii<n29 十 十 ) 
foer 人 一 01<n2gij 十 十 ) 
{ xL4x*i 十 j 十 n2] 一 xit4#xi 十 j 十 n2]jxeoeftLj 二 nl] ) 
for 6 一 Dri<cn25i 十 十 ) 
for 全 一 0 <n25j 十 十 ) 
ft 一 x4xi 十 和 十 和 [4xi 十 ji 十 n2]; 
x[L4#i 十 j 十 hn2] 一 xL4xi 十 门  x[<i 十 j 十 mn2]; 
X[L4 <i 十 站 一 1 
} 
foer 《一 0?i<cn23i 十 十 ) 
{ XLi 十 nl1] 一 xLi 十 hl]x eoef[i] 
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x[Li 二 nl 十 n2] 一 xLi 十 nl 十 n2] * coef[i 十 n2]; 
} 
for 晶 一 0O5i<cnlii 十 十 》) 
《上 一 XL] 十 xD 十 nl]i 
xLi 十 nl] 一 xLii 一 xi 二 nl] 
X[i] 一 4 


tf 一 X[2]; xf2] 一 xft3]; x[3] 一 t; 

t 一 X[4];， x[4] 一 x[6]js x[L63 一 x[5];x[5] 一 x[7];x[7] 一 ti 
t 一 sqrtC2.0Ana); 

for 6 一 0i<nii 十 十 》 


Xi] :xx 一 1i 


中 


五 、 例 题 


设 za 一 8 计算 序列 ( 有 一人 一 0 一 ]) 的 离散 余 怠 变换 和 离散 余弦 反 变 换 . 
主 函 数 程序 (文件 各 :ifct8,m)， 
相 include ”tmnath,hy 
林 include "jet8. cy 
并 include *ifctg. ev 
tmainfy) 
{ int in; 
doeuble x[8]; 
了 一 8; 
fcer fi 一 Di<cnii 十 十 》 
xX[Li] 一 expf《 一 0 5 xi 
printft( sn InpPut Sequencewn ) 3; 
,for 一 Ori<cnii 十 一 4) 


{ PrjntfgCr 吃 10. 7f 听 10. 7f yx[ 让 ,和 [Li 十 1]) 
PrintfCn 听 10. 于 中 10.7f ,xfFi 十 2] ,xD 十 3])， 
Ptin 计 人 An 7 ， 

} 


fctSfxyna)s 
Printft 7 wm Diserete Cosine 下 fanmsfortmn2 ) ; 
for 《1 一 站 ji< 和 十 一 4) 


{ printf Cw 0%610. 7 咱 10. 7 ,X[i,xDi 二 1]); 
brinttfw 咱 10, 于 用 10. 7f” ,xLi 十 2],x[Li 十 3]7; 


2 


峰 序 wugT 党 


printf (rm 7) ; 
ict8Kxynyi 
printt(” mn Inverse Discrete Cosine TransforrmnAn" ); 
for G 一 OH<nii 十 一 4) 


{f printfCe 听 10. 7f 是 10. 7f ,x[i 了 jj,xCi 十 1])3 
Printfge 听 10. 二 f 冯 10. 7f ,xDCi 十 2] ,xDi 一 3]); 


Printigy ny 7; 
} 
》 


运行 结果 
输入 序列 rz) 为 
1.0000000 0 6065307 .367 呈 7 日 4 0. 2231303 
日 ,1 353353 ,082085D0 站 , 口 497 呈 7 了 1 自 . 口 3D197 再 
离散 祭 弦 变换 X(R) 为 
0. 8820963 0. 7949952 0. 3497837 0. 1843335 
.998366 站 .0D60751D0 ,332078 六, 已 TD 了 5 人 
离散 余弦 反 变 换 xD) 为 
1.0000000 6653D7 站 ，37 呈 7 了 9 0 2231302 
口 , 1353353 0D.0820850 日, 站 本 87871 避 . 301974 
$2.8 快速 离散 正 汞 变换 
一 功 能 
用 N 点 快速 博 立 时 变 换 计 算 离散 正弦 变换 ， 
二 、 方 法 简介 
实 序列 z(m 思 的 离散 正弦 变换 为 
Xe = /2 Sonsinaz ， 0 N_1 
一 人 sn 四 一 总 
实 序列 甘 ( 有 的 离散 正弦 反 变 换 为 


四 二 : 轿 3 加 
z() 一 人 方志 Xesin ，2 一 0 一 1 


为 了 用 FEFT 计算 离散 正弦 变换 ,我 们 构造 序列 >() 如 下 : 
3KO0D) 一 站 


ya 一 章 Em 十 CN 一 m) ]sin 和 十 了 [zco) 一 富 (CN 一 中] 
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形 一 一 1 2 一 1 


计算 序列 Ga 的 傅立叶 变换 了 rp 
Yr(R)》 一 并 (有 ) 十 了 了 (二 





其 中 
慌 ( 开 一 之 1yG0eos 和 
了 忆 上 .、 王政 了 开 
芳 之 [rz(o) 二 一 呈 )]sin 页 cos 基 1 
一 天 (2 十 1 一 区 (2 一 1 
及 
忆 1 2 
T(2) 一 一 之 0) sin 客人 
一 -全 王 reon 一 ev 一 2 半 sin 和 
一 -- 及 (28) 
肉 此 ,离散 正 疙 变换 Xp 可 由 下 式 计算 
[2 呈 ) 一 一 了 ( 呈 ) 了 4 一 2 全 一 1 


IXGD) 一 六 二 zeoosin 冤 
由 于 离散 正弦 变换 和 离散 正 驴 反 变 换 结构 上 老 全 相同 ， 因 此 两 者 可 以 用 一 个 稳 序 。 
三 、 使 用 说 明 
1， 子 函数 语句 


void fstfxyn) 
2， 形 参 说 明 
- 双 精 度 实 型 一 维 数组 , 长 度 为 na。 开始 时 存放 要 变换 的 实数 据 , 最 后 存放 变 








n 一 一 整 型 变量 。 数 据 长 度 ， 必须 是 2 的 整数 次 震 ， 即 n 一 25。 
四 、 子 琐 数 程序 (文件 名 :fste) 


并 includqde ”math.h” 
并 jnclude ”Stdlib.3n” 
并 inetude ”rttt cy 


VDid TstfxyDn) 














int 嫉 ; 


13 驻 


double xL ]; 
{ int lnl; 
double gs ，,XL， 关 了 


7y 一 mallockn * sizeof(qouble) 7) 


nl 一 hn/2; 
日 一 4, %atanf1.0)Amns 
y[LOj 一 .0; 


foer 企 一 131<mnil 一 十 ) 
y[ 说 一 sinGixgq)yx(xXLi 十 x[Lna 一 1 十 9. 5 关 (x[ij 一 x[n 一 站)， 
Tftty ,7 
X1 一 0. 0 
for 《一 13i<nyi 十 十 》 
人 一 并 
S 一 Sitmnfs) 
xl 十 一 s#X[i]; 
} 
x[LO] 一 习 DyxXxLLl 一 区 1; 
for 《ii 一 13i<nl3i 十 十 ) 
{K[2* 襄 一 一 y[n 一 吕 ; 
x[2 xi 十 ] 一 x[2 xi 一 菇 十 y[ 门 ; 
1 
呈 一 SCTtC2. DAmnyi 
for G= 一 1)<nii 十 十 ) 
X[Li] 关 一 Si 
reegy) 


五 例 题 


设 m= 16, 计 算 序列 rz( 门 =e5G 一 1,2, 2 一 1) 的 离散 正 苞 变 换 和 离散 正弦 反 变 
换 。 


主 函 数 程序 (文件 名 :fst.m)， 
失 include ”tmath,hy” 
术 include "fst cy 
main( ) 
{ int in 
double x[L16]， 
一 168 
for 人 一 0i<nii 十 十 》 
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X[ 订 一 exp( 一 各 511 
brintfg"INPUT SEQUENCEAn” ); 


for《i 一 13i<nii 十 十 ) 


{ PrintfC7 


} 
PrintigoNn7 )3 
fstKxynD)i 


咯 10. 7f Li]) 
计 《好 4 一 一 0) printff ny 7)3 


printfCrDISCRETE SINE TRANSEFORMYSn 
foer 0 一 15i<ni 十 十 ) 


{ Print 


} 
printtKy sn) 
TStfXyDD5 


Printf"INVERSE DISCRETE SINE TRANSFORMAny ); 


双 10. 7 xi])， 
让 有 站 4 一 一 0) printft ny 


for 4 一 13;i<njii 十 十 》 


{ printfew 


》 
Printffr sm” ) 
} 
运行 结果 ， 
输入 序列 zG) 为 
0. 650865307 
号 .0820850 
8.0111090 
0. 0015034 
离散 正 孩 变换 碟 人 ?为 ， 
0. 2349416 
0. 2570270 
0,.1311227 
0.0501480 
离散 正 纺 反 变换 rz(z) 为 ， 
0. 6065307 
0.0820850 
台 . 站 111090 
0. 0015034 
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邮 10. 9f” [7 
证 站 师 4 一 一 0) Printfto ny 


书 忆 吓人 


司 司 


“3678794 
00497871 
0D67379 


0009119 


.33191686 
24191653 
.081008 
+ 0329845 


. 30678794 


0497871 
0067379 
0009119 


局 


SP 9 


中 中 PP 


2231302 
30197 


0O4O086& 
,DOD531 


.3317329 
.1859855 


0873539 
0163620 


2231302 
.0301974 
-OO040888 
. 0005531 


0. 1353353 
介 . 人 1 331 5 
0 0024788 


“2 心 


.2971519 
.567163 


0 90681070 


0. 1353353 
.0183156 


心 


0D024788 


2.9 快速 沃 尔 什 CWalsh) 变 换 


一 、 功 能 
计算 实 序 列 的 离散 沃 尔 什 CWalsh) 变 换 ， 
二 、 方 法 简介 


离散 沃 尔 什 函 数 有 三 种 形式 ， 分 别 定义 为 ， 
沃 尔 什 编号 的 离散 沃 尔 什 画 数 Walw(Rr) 


入 。 We 


alw (有 / 姑 ) 一 【一 二 
哈达 玛 编导 的 离散 沃 尔 什 函数 而 al ( 开 ) 


旺 。 1 


Waia(REm) 一 (一 1) 
佩 利 编号 的 离散 活 尔 什 冰 数 到 alp(k,z) 


机 al 一 (一 二 到 or 


开 一 日 “2 一 1 有 一 0 1 25 一 ] 
其 中 六 是 盖 的 第 ; 位 二 进位 码 必 是 不 的 第 ; 位 二 进位 码 , 吕 () 是 下 的 格雷 (Gray) 稻 的 第 
z 位 码 。 
离散 沃 尔 什 变换 定义 为 
xD- 太 立 =o Wal(tom) ，&=-01N 一 1 
离 区 沃 尔 什 到 变换 定义 为 
2 于 XCD Walk ， 3 一 0,1 woN 一 1 


其 中 Wal(e, 四 是 上 面 三 种 编号 的 离散 沃 尔 什 函数 之 一， 
设 以 险 近 玛 编号 的 沃 尔 什 冰 数 到 aly CE, 为 元 素 构成 的 矩阵 为 [ 瑞 ,] ， 它 有 如 下 得 
扒 关 系 
JE 本 we 
DEL 1 
利用 该 递 推 公 式 将 变换 矩阵 进行 稀 确 矩阵 分 解 ， 可 以 推导 出 与 快速 伟 立 叶 变 换 类 似 的 算 
法 - 
其 它 两 种 编号 的 沃 尔 什 变换 可 以 由 哈达 玛 编号 的 沃 尔 什 变换 导出 ， 此 不 袭 述 。 
快速 沃 尔 什 变换 完全 不 需要 乘法 ,只 需 作 Mlog:N 次 加 减 运算 。 另 外, 从 沃 尔 什 恋 换 
的 定义 可 以 看 出 ， 正 , 反 变 换 除 相差 一 个 常数 因子 1/N 外 ,其 结构 完全 相同 ,因此 可 用 条 
同 程序 计算 离散 沃 尔 什 正 、 反 变换 。 
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人 


三 、 使 用 说 明 
1 子 函 数 语句 


void fwrtCxynysigny) 


2， 形 参 说 明 
x 一 一 双 精 度 实 型 一 维 数 组 , 长 度 为 n。 开始 时 存放 要 变换 的 实数 据 , 最 后 存放 变 
换 结 果 。 





n 一 一 型 变量 。 数 据 其 度 ， 必 须 是 2 的 竟 数 次 插 ， 即 n 一 2"。 
sign 一 一 整 型 变量 。 变 换 类 型 的 控制 参数 。 
当 sign 一 1 时 ， 计 算 哈达 玛 排 序 的 快速 沃 尔 什 变换; 
当 sign 一 2 时 ， 计 算 沃 尔 什 排序 的 快速 江 尔 什 变换 ; 
当 sign=3 时 ， 计 算 佩 利 樟 序 的 快 交 沃 尔 什 变换 ， 


四 、 子 函数 程序 (文件 名 :fwt.c) 


vbDid fwtCxynysSigny) 














int mysigmny 
double x[L]， 
fint ij jl El1lmynonln2 far; 
doubie ti 
for = 王 1 一 15<165 十 十 ) 
tm 一 j# 
j 一 业 关 有 
这 本 一 一 发) breakj 
让 (sign > 一 2 ) 
{ nl 一 一 1; 
fer 人 一 0 一 03i<nli 二 十 ) 
《让 (is jy) 
[tt 一 xj]; 
xD] xDLi]; 
x[i] 三 ti; 
) 
上 一 n/2; 
while《【E< 近 《人 洒 1) ) 
(一 jj 一; 
k 一 长 /24 
j 一 j 十 Ki 
3 入 


} 
n2 一 1; 
for 寻 一 1 二 一 mi 十 十 ) 
(no 一 nrn2 
nl 一 nO7 2; 
有 iag 一 1; 
for jj 一 0i<n29 十 十 ) 
《1 一 jxn0i 
for 避 一 Dii<nlii 十 十》 
(上 一 1 十 jl 
kl1 一 十 nl; 
ft 一 xfkl]xrflags 
x[Lk1] 一 x[Kk 一 ti 


X[k] 一 X[K] 十 ti 
} 
让 (sign 一 一 2 )fag 一 一 Tagi 
} . 
昌 2 一 了 2 区 2 
fer 《一 洲 <mni 十 十 ) 
{xD] 7 一 ni + 
五 、 例 题 


计算 = 一 8 点 序列 { 1,2,1,1,3,2,1,2 } 的 哈达 玛 排 序 的 、 沃 尔 什 排序 的 以 及 佩 利 排 
序 的 离散 沃 尔 什 变换 ,并 计算 它们 的 反 变 换 。 


主 函 数 程序 (文件 名 :fwtimn): 

并 inclade "fwt ee 

tnaink ) 

{ int iyrns 
static double x[8] 一 人 1. ,2. ,1 1. 3. 2 1. 2 4 
了 一品 ; 
fwrtgx ny 175 
brintfCxsn Hadamard-ordered 碍 alsh Transformn" ) 
for〈i 一 0ii<cni 十 一 4 


{ Ptintf(C” 啊 10. 7 昕 10.7f” ,xDi]y,x[Pi 十 1]7; 
Printf fy 听 ]10. 守 910. 7 拉 ,x[Li 十 2 ,xi 十 3]); 
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printfC” sn 7) 
ftgCxnyl)i; 
for《i 一 03i<cmnii 十 十 ) 
xl] 一 axxEb]i 
printf( mn Inverse Hadaratrd-ordered 而 alsh Transformny ) 
for 1 一 人 ii<cni 十 一 村) 


{ Printt (7 吗 10. 于 服 10.7 坟 ，x[] ,xLi 二 1]); 
Printftf7 o10, 于 9 10.7f ,xf 十 仆 ,x 人 十 3])， 
PrintiK ni 

} 


fixyny2)1 
printfC sn 鹤 alsh-ordered 环 alsh TransfcrmNn” 
for 6G 一 05i<ni 十 一 4) 


{ printfty 听 10. 于 站 10. 7f ,xx[i 二 Ti) 
Printfey 听 10. 全 听 10. 7ftr ,xfi 十 2],xLi 二 3]); 
Printf” nz 7s 

} 


fwrtCxyny223 
fceri 一 0ii<nii 十 十 ) 
K[ 训 一 口 *X[Li; 
Printf (yn Inverse 出 alsh-ordqered 克 alsh Transformsn” 7) 
for 0 一 03i<cnii 十 一 4) 


{ Printttw 吧 10. 和 阁 10. 7?f" ,xD],xLi 十 1]); 
Printf(y” 吧 10. 于 赂 10.9f sxTi 二 2]xLi 二 3) 
printfCr nn 7 3 

} 

fwtCryny 3)7i 


Printt (yn Paley-ordered 而 alsh Transformsny 3 
for 4 一 05i<nji 十 一 4) 


{ printff 2 10. 7f 电 10. 7 和 ,xx 十 1 
printfCy 咯 10. 于 听 10. 7f ,xLi 十 2],xE 二 3])3 
Printf Cn 》; 

} 

fwtCxony 3 


for (= 一 03i<nii 十 十 》 
xf 人] 二 mxx[ijs 


printfttr na Iaverse Paley-ordered 而 alsh Transformsny 7 





for (一 Di<nii 十 一 4) 


{ Printfg” 只 10. 7 和 10. 978 ,和 xLi 二 173 
Printf fw 94110. 7 of10.7fw" ,xLi 十 2],xLi 十 3]); 


Printf(” sn" ); 
} 


运行 结果 ; 
险 这 玛 排 序 的 沃 尔 什 变换 为 
1. 62500090 一 六. 1250000 0 3750000 .12500DD 
一 日 . 790NOD 一 0 1250000 一 0. 125000b 一 由 3750000 
阶 达 玛 排序 的 沃 尔 什 肥 变换 为 
1. 5000000 ， 站 正月 个 丰 曲 1.DO0000 1.Dooooono 
3. DODboonb 2.0000000 1 00000000 2.0000000 
沃 尔 什 排序 的 活 尔 什 变换 为 
1 6250000 一 昌 3750000 一 品 1250000 口 ，3750O0D 
六 .125900 呈 一 避 37500Q80 一 0. 1250b00 一 日. 125000b 
沃 尔 什 排序 的 沃 尔 什 入 变换 为 
1 0000000 2 DOb 1.00b600D 1.0000000 
六， 站 站 和 个 牛 操 己 2,. 00b0obn 二 站 种 间 DDTD 2.0DDoobo 
佩 利 排 序 的 沃 尔 什 变换 为 
工 .62500 一 骆 , 37 了 5 人 昌 伍 昌 . 3 了 75 人 DO 总 一 0 25000 
一 日. 129800 一 0 1250000 ,工业 5 性 0 375D0000 
佩 利 排序 的 沃 尔 什 友 变 换 为 
1.0000000 2.00000U 人 T .DO00000 1.0000000 
3. Oonb3000 2.0000000 1 Oo0OObU 2.0000000 
8$ 2.10 快速 希 尔 伯 特 变换 (一 
一 、 功 能 
用 快速 哈 特 菜 (Hartley) 变 换 计 算 离散 希 尔 伯 特 (Hiibert) 变 换 。 
二 、 方 法 简介 


设 离散 希 尔 伯 特 变换 的 变换 核 为 8Cz)， 那么 序列 zx(a) 的 离散 希 尔 伯 特 变换 zz) 
定义 为 zay 与 瑟 O2) 的 卷 积 , 即 
交 ( 玫 ) 一 区 (ma) 关 真 (7 
设 序列 zCa) ra) 和 六 (2 的 离散 哈 特 莱 变 换 分 别 为 中 (、XCE) 和 五 (有 ,由 上 式 可 
， 工 37 





得 
息 ()》 一 其 (有 再 (十 大 ( 一 下 ?五 (二 ) 
其 中 五 (9 和 已 (分别 是 五 全 ?的 偶 部 和 奇 部 。 
由 于 着 尔 伯 特 变换 核 A&(z) 是 奇 琐 数 , 从 而 有 
[五 (CR 一 站 
EC 一 百 () 














这 样 乏 (6 可 表示 为 

中 ( 有 ) 一 丰 ( 一 有) 了 (六 ) 
其 中 

的 
荆 让 & 一 2 
B(D=」 0 ， 0 
_ 交 忆 _ 
,一 1 壬 玉 盖 十 上 林寺 2， 本 1 

而 怀 ( 一 如 可 天 示 为 

实 (R) 并 一 0 


有 《一 下) 一 
CN 一 史 ) 3 开 一 12AN 一 1 


最 后 ,计算 总 CR) 的 离散 哈 特 药 反 变换 (IDHT) , 即 可 得 到 序列 z(o) 的 离散 希 尔 伯 特 变换 


Cn)。 
三 、 使 用 说 明 
1 子 函数 语句 
voidq hilbthxxyny) 
2， 形 参 说 明 
x 一 一 双 精 度 实 型 一 维 数组 ,长 度 为 a。 开始 时 存放 要 变换 的 实数 据 , 最 后 存放 变 
换 结 果 ， . 
n 一 一 整 型 变量 。 数 据 长 度 ， 必 须 是 2 的 束 数 次 窦 ， 即 nm 一 姑 。 


四 ， 子 画 数 程序 (文件 名 :hilbth.e) 


站 include "fht,ey 
void hilbthKxny) ， 
int mi 
double x[Lj; 
{ int inlyn2; 
double t; 
nl 一 hn/2; 
n2 一 nl 十 Ti; 
fhtCxynyy 
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ior 和 一 135<nl1ii 十 十 ) 


ft 一 xD 
xi = xn 一 刘 ; 
xn 一 一 1 

} 


fcer ki 一 n2ii<nii 十 十 》 
xfLi = 一 x[i; 

xX[D ii 一 癌 05 

xfal] = 0.0i 

fntkxn)i 

t 一 二 .An 

fcer(i 一 Dis<nii 十 十 》 
xf > 一 tt 


} 
五 ` 例 题 


设 ” 一 64, 序 列 zf 一 sin(2mz732)9 一 0,1， 9 一 ]。 计 算 其 离散 希 尔 伯 特 变换 zGz)， 
并 画 出 z*G) 与 工人 的 图 形 。 
主 冰 数 程 序 (文件 名 :bilbth. my) ， 

并 include ”math. hy” 

站 imeclude ”stdio.hy 

并 include "hilbth. en 


taainf ) 








1 int 1) 王 ， 
douple xf64]; 
FIIEE xfipi; 
na 一 64 
for 如 一 0jii<ni 十 十 ) 

x[i 了 一 sinf2x3.14159265 xi732731 
fp 一 fopen(*hilbl. dat" ,ww 
Jor (Ci 一 0;i<nii 十 十 ) 

fprintfifp 上 晤 d fn ix ]); 
fclosetftpby)y 
Printf (”" sm Original SequenceNnn )i 
for《i 一 Di<ny25i 十 一 4) 


{ brintfC7 24 7 0%tD,. 7f ,xDi],xLi 十 1]73 
PrintfC7 %10. 哇 内 10. ?fn ,xE 十 2],x[i 十 3]); 
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hilbthexny4 
Printf(” An Diserete Hilbert Transformnn”); 
forf (一 05i<n725i 一 一 4) 
{ Printfe” 9210, 7 邓 10.7f” ,XLi] ,xi 十 1]); 
brintfgw 0010 7 是 10.7fn” ,xLi 十 2],xLi 二 3])5 


1 
了 


fp 一 fobpengrbhilb2.dat ww 
for (一 Oili<nii 十 十 ) 
fPtintf ipP 时 电 fn x[i]7 


fclosefKfp7， 
} 
运行 结果 ， 
输入 序列 z( (前 32 个 数据 》 
0.0000000 0 1950903 D. 382063834 性 , 5555702 
0 707106 名 8 总 ,8314696 0 5238795 口 , 9807853 
1.00000090 0. 98078353 站 和 238795 人 ,83314696 
0 7D71ODS8 0 5555702 癌 , 3 了 82685344 但 间 生 避 3 
0. 0DDo0oo0 一 昌 1950903 一 口 , 3826834 一 0. 5555702 
一 0 7071068 一 0.8314696 一 0. 9238795 一 总 ,08807853 
一 1.0000000 一 站 .9807853 一 总 , 9238795 一 避 , 8314696 
一 0.7071068 一 遇 059597D2 一 口 . 3826834 一 全. 1950903 
序列 zGo 的 离散 希 尔 伯 特 变换 zf (前 32 个 数据 ) 
一 1.5000000 一 昌 . 9807853 一 0.09238795 一 避 . 8314696 
一 避 . 7 了 7071068 一 0 53555702 一 站 3826834 一 站 ,195 已 8 
一 b, 0000000 0. 1950903 0 3826834 ,5555702 
0.7071068 站 ,号 3 工 9 和 0. 9238795 0. 9807853 
1. 000000 0. 9807853 0. 9238795 0.8314696 
站 7071068 站 55557 人 位 0 3826834 避 , 1950903 
0. DOUOo00 一 0 1950903 一 用 ,3826834 一 站 55598570 
一 避 , 7 了 TI0O68 一 0 83146986 一 心 .9238795 一 疙 9807853 


序列 zG) 与 其 离散 希 尔 伯 特 变换 xD 如 图 2 一 2 一 1 盾 示 。 显 然 , 两 者 的 相位 相差 90 
度 . 


8$ 2.11 快速 项 尔 伯 特 变 换 ( 二 ) 


一 、 功 能 - 


用 快速 傅 立 呈 变换 计算 离散 希 尔 伯 特 (Hilbert) 变 换 。 
1490 








30 40 
样本 序 导 


实 线 :rti) 上 库 线 :着 尔 伯 特 变换 25) 
图 2 一 2 一 1 序列 = 和 项 尔 伯 特 变换 xz) 


二 、 方 法 简介 


设 离散 希 尔 伯 特 变换 的 变换 核 为 Atn)?， 那么 序列 ra? 的 离散 希 从 从 特 变换 <(z) 
定义 洗 工 (6 与 天 (0 的 卷 积 , 即 
工 (2) 一 工 (m) * 下 (7 
设 序列 z(a ,za 和 严 Ca) 的 离散 人 博 立 叶 变 换 分 别 为 京 (8 、 壬 (7 和 五 (R) ,由 上 起 可 
得 
叱 (有 ) 一 系 ( 有 五 () 
对 上 式 进 行情 立 叶 反 变换 , 便 可 得 到 离散 希 尔 伯 竺 变换 z(m) 
Ca) 一 IDFT[XCE( 


其 中 
12 
一 了 9 开 一 1，2， "2 1 
再 《下 ) 一 0 ， = 0 

六 1 
于 弛 点 一 2 十 1 十 2， 本 ] 

三 、 使 用 说 明 

1， 子 函数 语句 

void bitbtfkx ny) 
2， 形 参 说 明 


< -一 双 精 度 实 再 一 比 数 组 长度 为 mn。 开始 时 存放 要 变换 的 实数 据 , 最 后 存放 变 
换 结 果 。 


] 41 











n -一 整 型 变量 。 数 据 长 床 ， 必 须 是 2 的 整数 次 宕 ， 即 an 一 交 。 
四 、 子 函数 程序 (文件 名 :hilbti,c) 


共 inctuqde ”tfit er 
共 include Yirftt.ey 
void tlpbtfxsny 
inmt 旺 ; 
double x[ ]， 
1 int in 
double ty 
nl 一 mA2i; 
TtCxyn72 
forti 一 1;i<nlitT TD) 
Lt 一 X[D 2 


xf[il 一 xn 一 站 ; 











x[n 一 说 一 一 纯 


| 
x[O 的 一 x[Lnl] 一 0. 0 
irfftkx ny 


五 、 例 题 


设 盖 让 ,序列 zx)=sin(2ripa ii 一 0,1, 2 一 1, 它 的 理想 希 尔 伯 特 变换 为 xi 一 
_ cos(2ripmysi 一 0,1 和 nl。 用 快速 合 立 叶 变 换 计算 库 列 (iD) 的 离散 希 尔 伯 特 变换 > 
G) ,并 与 理想 值 进行 比较 。 
主 函数 程序 (文件 名 :hilhbtft, my): 

共 include ”math hy” 

并 include ”hilbtf. ce” 


Taint ) 








{f int 1 
double xf64],yL64]; 
了 一 684; 
for (一 Di5i<nii 十 十 ) 
X[i] 一 sink2x3,.14159265 * in7# 
for (ii 一 Di<ni 十 一 》 
y[i] 一 一 cosf2: 3.14159265 %iAny)# 
priintf*sn Ideal Disctrete 了 Hilbert Transformn”) 
for fi 一 Di<nA2i 十 一 4 
1 二 之 








《Przintfgn 


Printt(CY 


》 


hilptfCxn7y 
PrintfCzsn Diserete 了 Hilbert Transfortnn” )# 
for 0 一 0Oii<cny2ii 十 一 4) 


9610 7 
4610, 7 


一 小 
一 必 , 
一 光 
一 小 

0. 


0 
-人 
如 


一 心 ， 
一 小 


9807853 
8314696 
53585702 
1950903 
1950903 


.5555702 


8314696 


98907853 


9807853 
831469 台 


. 55558702 
. 1950903 
、 1950903 
.5555702 
8314696 


{ PITintiCe 此 10. 于 
Piintf(” o10, 7f 
} 
运行 结果 : 
序列 *G) 的 理想 离散 希 尔 伯 特 变换 (前 32 个 数据 ) 
一 1.0000000 一 癌 . 89951847 
一 D. 9238795 一 站 8819213 
一 0 7071068 一 0. 6343933 
一 0 3826834 一 D, 2902847 
一 心 0000000 0.0980171 
0. 3826834 D. 47]39867 
0 7D71068 07730105 
昌 , 昌 2387985 0 9569403 
序列 xG) 的 离散 希 尔 伯 特 变换 (前 32 个 数据 》 
一 1.0000000 一 0. 9951847 
一 仿 . 9238795 一 0. 8819213 
一 日, 771068 一 0 6343933 
一 吕 3826834 一 0 2902847 
一 0 000000 0. 0980171 
号 .3826834 0 4713967 
.7071068 0 7730105 
0. 9238795 0,.9569403 


.9807853 


牟 10. 3 科 ，7[ 二 1》 
%10. ?fn yy 二 2]yEi 二 3]) 


中 10. 7f” ,xxLilxLiT1]); 
% 10. 7fvn” ,xi 十 2],x[i 十 3]); 


- 9569403 
.7 了?730105 
,47113967 
0980171 


29802847 
6343933 


8819213 
8951847 


9569403 
730105 
44713967 


0980171 


902847 
6343933 
,8S19213 
“9951847 


4 


为 


序列 


第 三 章 ， 快 速 卷 积 与 相关 








s 3.1 快速 卷 积 
、 功 能 
用 快速 傅立叶 变换 计算 两 个 有 限 长 序列 的 线性 卷 积 。 
工 、 方 法 简介 


说 序列 za 的 长 着 为 邮 , 序 列 y(a? 的 长 度 为 六 ,序列 ro) 与 yt) 的 线性 卷 积 定义 


到 (2 -一 - 立 roym 一 P， 天 一 Do 一 以 一 了 
时 快速 傅立叶 变换 计算 线性 卷 各 的 算法 如 下 
1. 选择 工 满足 下 述 末 件 

















并 六 彤 一 1 
二 = 2 ，7y 为 正 燥 数 
2 将 序列 x( 中 与 yo) 按 如 下 方式 补 零 .形成 长 为 工 - 2 的 序列 


1 一 0 一 1 
0 0 wa 
[ya 并 一 0 一 1 
39 一 1 中 十 1 一 





3. 用 FFY 算法 分 别 计算 xx) 与 > 的 训 贡 傅立叶 刘 换 X() 与 了 
着 ( 有 一 or Je 一 JP 


(ER》 一 > 2mpk 抽 
4. 计算 于 ( 人 与 了 (的 乘积 
和 (R) 一 项 ( 虹 ] 了 [是 
5. 用 TFT 算法 计算 Zi 的 离散 传 立 叶 反 变 换 , 和 得 到 卷 积 ztm) 


x (ay 一 到 zcpoe， “0 一 





sa) 的 前 型 十 一 1 点 的 值 就 是 序列 za) 与 y() 的 线性 卷 积 。 


和 


2 











三 、 使 用 说 明 
1， 子 函数 语句 


void convol(x,yy mynylen) 
2， 形 参 说 明 
x 一 一 双 精 度 实 型 一 维 数 组 ,长 魔 为 len. 
积 的 值 。 





于 始 时 存放 实 序列 x(:)， 最 后 存放 线性 卷 


y 一 一 及 精度 实 型 一 维 数组 ， 长 度 为 a。 在 放 实 序列 y(?)。 


m 一 整 型 变量 。 序 列 zG) 的 长 度 。 
na 一 整 型 变量 。 序 列 yi 的 长 唐 。 


len 一 一 整 型 变量 ， 线 性 卷 积 的 长 度 。len 关 mn 一 1， 且 必须 是 2 的 整数 次 莉 ， 即 


len 一 27。 


四 、 子 了 数 程序 (文件 洛 :convoil,c) 


并 include “THft. ce 
井 ineluqe "irfft. cr 
void conyolfxsyyrmmynylen) 
int mynyleny 
double xy[L 
{ int iylen2i 
double 
for 如 一 乌 Ji<clenii 十 十 》 
{x[ 订 = 一 0.0i)} 
fcer 4 一 nii<clenii 十 十 ) 
{17y 训 一 0.05 } 
ttt(Cxslen]s 
rfftgy ylen7# 
len2 一 len72: 
xlL0] “一 xLOJxey[oj 
xflen2] 一 xLlen2]x y[Llen2] 
for 6 一 1ii<len25i 十 十 》 


上 


一 让 关 y[Llen 一 1 


{ 一 xfti]x yti] 一 XULle 
xXLlen 一 证 一 X[ 刘 *y[len 一 讨 十 xLlen 一 让 半 y[i; 
[ij 一 fy 
} 
jrfttkxylen7; 


} 
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五 例 题 


设 序 列 < 人间 为 ! 一 1,5,2，7,6,9,4)， 其 长 度 和 一 7 序列 yG) 为 ,21 一 34 5 其 
长 度 m=6。 选 择 len 一 16, 用 FFT 计算 序列 zG) 与 > 的 线性 卷 积 , 并 与 直接 计算 结果 进 
行 比 较 。 

主 函 数 程序 (文件 名 :convol. my) : 


共 ineclade "convaol.er" 





Inaint ) 
{ int ijymynylenylenli 
double xzL16]; 
douple x[1 的 一 { 一 1 59247,6.9,4)，y[Li6] 一 人 ,21 一 3.4)513 


m 一 7; 
习 一 6; 
len 一 16 


len1 一 盖 mn 一 1 
fer 0 一 0j<lenl 和 十 十 ) 
{ 2z6] 一 0.0; 
for G=0ii<mii 十 十 ) 
《人 一 已 症 0 信人 一 ) 
zi 让 一 一 xi < 一 这 ; 


PITIRETCEDirect Catceulatiop of Lincar Convolutionsn”)4 
tor (Di lenli 一 ) | 


1 PrintiC2 5 DO。 1 zi 3 
这 嫩 胎 4 一 一 3) Printftg” na” ?3 
了 
Poemntfg sn yi 


convol(xyysmnylenyi 
brintfg7Fast Calculation of Linear Convolutionsmny 》 
tor 三 一 Olenl3 和 十 十 》 


4 Printfen 吧 10. 1 ,x0i]) 
证 全 约 和 二 一 3) PrintTt An 3 


Printf ”sn 3 





运行 结果 ， 
浅 性 卷 积 的 直接 计算 结果 
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一 1.0 3, 0 1 避 19. 0 


3.0 37.9 40,.0 37.0 
36.0 54,0 61.0 20.0 
线性 卷 积 的 快速 算法 结果 
一 1 3.0 11.0 19.0 
3.0 37.0 40.0 37.0 
36.0 54.0 61.0 20.0 


3.2 长 序列 的 快速 卷 积 


一 、 功 能 
用 重 释 保 留 法 和 快速 傅立叶 变换 计算 一 个 长 序列 和 一 个 短 序 列 的 线性 卷 积 。 它 通常 
用 于 数字 兹 波 。 
二 、 方 法 简介 
设 长 序列 zGne? 的 长 度 为 工 ， 序列 An) 的 长 庆 为 W， 序列 xGo) 与 Co 的 卷 积 定义 为 
y(n)y 一 互 =Gpu 一 六 


用 重 杰 保 留 法 和 快速 传 立 叶 变 换 计 算 线性 卷 积 的 算法 如 下 ， 
1. 将 序列 Ama) 按 如 下 方式 补 零 ,形成 长 度 为 六 一 2 的 序列 
疡 《如 ? 一 阁 lv 一 1 
正人 )》 一 | 
避 ， 六 一 明 , 有 十 1 一] 
2， 用 FFT 算法 计算 序列 Ac 的 离散 傅立叶 变换 百人 (有 


媚 () 一 oo- 2 


3. 将 长 序 闻 列 z) 分 为 长 度 为 N 的 小 蜂 00， 相 邻 段 间 重 亚 MA 一 1 点 , 即 
0 型 十 1) 一 (于 一 1 ，0 委 天 雪上 一 ] 
9 扣 为 其 他 慎 


交 (用 》 一 


二 一 站 9 二。 
注意 :对 于 第 一 段 的 m(za? ,由 于 没有 前 一段 药 保留 信号 ,因此 要 在 其 前 面 填补 M 一 1 
个 零 。 
4. 用 FFT 算法 计算 序列 x% (的 离散 博 立 叶 恋 搞 飞人 人) 
闷 () 一 之 CDeT Pa 
5， 计算 和 (与 五 (的 的 乘积 
TB 一 厌 ( 有 百合》 
6. 用 FFT 算法 计算 兄 伏 ?的 离散 鱼 立 叶 反 变换 ,得 到 序列 二 (与 4Ca) 的 卷 积 w Ca) 
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呈 一 上 
0) 一 广 闷 7 CDeerw ， 2 一 0 一 1 
下 一 月 


?7. 将 wa)? 的 前 邮 一 1 点 舍 去 , 仅 保 留 后 面 的 交 一 虹 十 1 个 桩 本 。 
Mi 了 一 1 入 ?2 雪 六 一 1 
0 “ ， 3 为 其 他 值 
8. 重复 步 台 3 一 7， 直 到 所 有 分 段 算 完 为 止 。 
9. 考虑 到 ra) 分 段 时 ,Ga? 有 对 一 1 点 与 前 -: 段 重 登 ,新 添 的 样本 只 有 六 一 MT+1 
个 ,所 以 ?6 由 (az) 首 尾 衔接 而 成 , 即 





(2)》 一 























20 一 全 ii 一 歼 上 DTD+(M 一 1 


三 、 使 用 说 明 
1.， 子 函数 语句 


Yo 刘 comnvolsfxh,lensrmyny) 

2， 形 芝 说 明 

x 一 一 双 精 度 实 型 一 维 数组 ,长度 为 ltn。 开 始 时 存放 长 序列 zxG), 最 后 存放 线性 卷 
积 的 值 ， 

ph 一 一 驱 精 度 实 型 一 维 数 组 ， 长 度 为 mm。 存放 短 序 列 (。 
整 型 变量 。 长 序列 xi 的 长 度 。 

m 一 一 整 型 变量 。 短 序列 靖 G) 的 长 度 ， 

na 一 整 型 变量 。 对 长 序列 CD 进行 分 段 的 长 度 。 一般 选取 n 大 于 短 序列 疡 G) 长 度 
m 的 两 倍 以 上 ， 且 必须 是 2 的 整数 次 卉 ， 即 m 一 2。 


四 、 子 苑 数 程序 (文件 名 :convols.c) 


井 include "math.b2 
#incetude "stdlib, hy 
并 inceluqde *Tfft. ee 


共 Inelude *irfft. ee 








]en 








void conyols(x,hylenymyn) 
int tsmyleni 
doubie h[]j,x[]; 
{ int ij jln2numynbiksi 
Qouble ty， 关上 ， 关 SS 
r 一 Imaliockn x sizeofkdoubley 7); 
s 一 mallocktn 一 和 十 1) # sizeofftdouble))， 
n2 一 nr/2 
Tum 一 下 一 和 十 1 
nblks = 一 floorfklen 一 ETm)Adouble)numy 十 1; 
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foer G 一 tmii< nii 十 十 》 
{ hj 一 0.0 


Trfftkhnyy 
for 0 和 = 一 00N<nblksij 十 士 ) 
{ 许 和 三 一 少 》 


(for 0 一 OH mm 一 1375 十 十 ) 
1T[ 了 一 0.0;) 
fer 在 一 (mn 一 1)5<nji 十 十 》 
{ 计 一 1 一 mm 十 1; 
r[] 一 x[Lil]; 
} 
} 
ejse 
t for ki 一 05i<nii 十 十 ) 
{ 记 一 1 十 jxnum 一 mm 十 1 
r[i] = 一 x[Li1]; 
} 
Jor G 一 0;ii<num5i 十 十 》 
{ 谨 一 1 十 和 一 二 关 nurms 
xLilj 一 s[Lijl; 
} 
} 
rfftGryny# 
rL09 一 rL0]*hfo] 
rLn2] 一 r[n2]x<*hln21i 
for 人 一 19<n3si 十 十 》 
ft 一 hxr0] 一 hn 一 ix*trDn 一 匡 ， 
IT[na 一 麻 一 RD xrn 一 训 十 ha 一 庙 *zr[i; 
r[] 一 芭 
} 
jirffttgr ny 
for 4G= (mn 一 1);i<cnii 十 十 ) 
《 计 一 工 一 mm 十 1; 
s[Lil] 一 Li; 
} 
for 4 一 03ii<numyi 十 十 ) 
{ 谋 一 1 十 和 一 xnurm' 
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xLlj 三 s-ij]; 
} 
圭一 jx*mnums 
fcr 站 一 iTM<tenii 十 十 ) 
{x[t 辐 二 00 ) 
freefr7i 
free(s ); 


4 
五 例 题 


设 序列 GD) 一 一 人 一斑 一 站 1 和 18 ;序列 xzG) 一 ea 一 0 1023 4 
分 癸 长 度 n 一 人 4。 计 算 序 列 AG) 与 rz 的 线性 卷 积 yG) ,并 将 序列 zGD、yG) 及 误差 e(D 
分 唱 存盘, 网 时 把 序列 zG 和 yi 的 前 32 个 值 显示 出 来 。 
显而易见 , 卷 积 yG) 为 :yG) 一 一 了 全 一 1)。 
主 函 数 程序 (文件 名 :convols. m): 
站 include ”math. hw 
柯 include ”stdio. Ph? 
站 ineclude "comvals.ey 
maint 》 
{ int iytmnynylens; 
double hL64],xL1024],yL1024 14,eLI024]; 
下 TILE * 人 p; 


卫 一 日 4 
一 19; 
ten 一 10245 


for 如 =05i<tmii 十 十 入 
{1hE 一 0 
hLli 一 一 1 
for Ki=:0yi<lengi 十 十 ) 
{ xi 一 exp{( 一 0 0 iD 
for 人 一 0H<(en 一 1)5 十 十 》 
{ yi 十 1 一 x6]; } 
Printf(7Input Sequencen> )3 
for 0 一 05i< 324 十 十 ) 


{ printfgw 吗 10.7f7 xx[i)， 
让 在 昕 4 一 一 3 Printfgrsny 
} 


纪 一 fopeng2comnvx dat yw ji 
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for (一 DOii<len5i 十 十 ) . 

{ {printteftp yy 10. 9 所 ,Li 
让 红 风 4 一 一 3 forint 攻 fp ny 

fpyintfffip” sn 7) 

fclosef(tp)， 

convolsfxyhylenerynys 

brintt Tinear (COnvelutionwny 7 

for 和 一 05i< 3211 十 十 ) 


{ Print re 晤 10. 7f ,xi 
让 《i 邮 4 一 一 3) Drintfr sn ) 3 
} 


地 一 {Ppenfeconvy, dat ww 
fprintffftp ”sn 3 
fer 0 一 0Oii<lenii 十 十 》 
{ fpeintfigfp 7 1 7 xD) 
诺 《i 妈 4 一 一 3) fprintffipysnr 7) 
} 
fprintfftip ny 
eloseffpy》i 
for 人 一 1ji<lenii 十 十 ) 
(1 e[ 一 芭 bsky[ 士 xE) 》} 
志 一 fobpenfconve, datw ww) 
fprintfffpy 3 
for 1 一 15i<lenii 十 十 ) 
{ fpzintfgtp yy 肥 10. 7f” ee[i] 7 
计生 中 4 一 一 3) fprinttfip sn 73; 
} 
fprintfffpysvn 7 
fclesef(fpy7i 
} 


运行 结果 ， 

输入 序列 =G) 为 
1.0000000 0. 9900498 日 ,9801987 . 8704455 
0.9607894 0. 99512294 0. 9417645 0 9323938 
0, 9231163 ,91393 了 2 0.9048374 0.8958341 
人 .8869204 口 . 8780954 0.8893582 0. 8607080 


0. 852143 名 0. 843664 台 0 8352702 0. 8269591 


0. &187308 人 .81D5842 站 名曲 29 1 有 吕 0 7945336 
全 .7R6627 人 0. 7788008 0 7710516 0.7633795 
0 7557837 0. 7482636 们 7 如 8 及 2 人 .了 33447 昌 
线性 卷 积 (为 
0, 0000000 一 ] .000000 一 虽 . 990049 生 一 0.9801987 
一 避 97044355 一 吕 . 9607894 一 日 . 98512294 一 中 9417645 
一 心 ,9323938 一 0 8331163 一 蜂 , 91393T2 一 日 9048374 
一 .89858341 一 全 8869204 一 避 . 8780934 一 0 8693582 
一 心 860708D 一 .38521438 一 0 8436648 一 由 8352702 
一 0. 8269591 一 品 . 8187308 一 口 , 8105842 一 全 38025188 
一 0 7945336 一 总 78066279 一 日 7 了 788008 一 总 7710518 
一 0 7633795 一 避 7957837 一 总 .7 了 482036 一 0 7408182 


s 3.3 特别 长 序列 的 快速 卷 积 


一 、 功 能 


用 重 芍 保留 法 和 快速 傅立叶 变换 计算 .个 半 别 长 序列 和 一 个 短 序列 的 线性 卷 积 。 它 


二 、 方 法 简介 


设 特别 长 序列 =(a) 的 长 度 为 工 , 序 列 产 (2 的 长 度 为 对 ,序列 zt) 与 靖 Ca 的 卷 积 定义 
为 
y(GD 一 > xz 人 DRCn 一 站 


用 重 琵 保留 法 和 快速 傅立叶 变换 计算 线性 卷 积 的 算法 如 下 : 
1. 将 序列 &6a) 按 如 下 方式 补 零 ,形成 长 度 为 六 一 2 的 序列 
Ra ， 下 一 0 一 1 

， 寻 一 时 , 邮 十 1 一 1 
2,， 用 FFT 算法 计算 序列 5(a) 的 离散 傅立叶 变换 五 疏 ) 


再 (R) 一 > (pei2me 
坟 一峰 


3. 将 特别 长 序列 za 分 为 长 度 为 N 的 小 段 (a) , 相 邻 段 间 重 要 邮 一 1 点 , 即 
oOD 二 (人 一 (一 1] ，0 志 2 所 N 一 1 
， 姓 为 其 他 值 
一 01 
注意 :对 于 第 一段 的 (na) ,由 于 没有 前 -- 段 的 保留 信号 ,因此 要 在 其 前 面 填补 Mt 一 1 
个 零 。 
152 

















背 ( 下 )】 一 




















站 


LE .本 


4. 用 FEFT 算法 计算 序列 zx (的 离散 傅 立 时 变换 忆 ,( 才 ) 
买 (并 )》 一 六 (aerame 
5. 计算 和 0) 与 五 (的 蒋 积 
了 (下 一 磋 ( 到 ) 理 (人 
6, 用 FFT 算法 计算 了 (8 的 离散 傅立叶 反 变 换 , 得 到 序列 mm) 与 六 的 卷 积 六 Cn 
0 一 下 FCDere mo-1 

” 7， 将 wma) 的 前 型 一 1 点 会 去 , 仅 保 留 后 面 的 Y 一 十 1 个 样本 
if ， 虹 一 1 和 过 站 妥 放 一 1 


0 “ ， 严 为 其 他 值 
8， 重复 步 又 3 一 7?， 直 到 所 有 分 眉 算 完 为 止 。 


9， 考 坪 到 zt) 分 段 时 ,Ce) 有 邮 一 1 点 与 前 一 自重 玲 , 新 添 的 祥 本 只 有 六 一 对 十 1 
个 ,所 以 ?Ge 由 (Ga) 首 履 衙 接 而 成 , 即 


鼻 人 m) 一 | 


309 一 > 一 MTIDT+TC 一 1 
了 四 


由 于 数据 量 很 大 ， 因 此 序列 Eco 和 特别 长 译 列 (要 存储 到 柄 盘 中 ,计算 完毕 后 ， 
卷 积 序列 yCGa? 也 由 程序 自动 存储 到 磁盘 中 。 


三 、 使 用 说 明 
1， 子 函数 语句 


void conyoldthfiname ,xjnameyyfnameyn) 

2， 形 参 说 明 

hfname 一 一 字符 型 指针 。 它 指向 短 序 列 产 ( 世 的 文件 名 。 

xfname 一 一 字符 型 指针 。 它 指向 长 序列 = 人 的 文件 名 。 

ytfname 一 一 字符 型 指针 。 它 指向 卷 积 yG) 的 文件 名 。 

na 一 一 整 型 变量 。 对 长 序列 ri) 进行 分 段 的 长 度 。 一 般 选 取 "大 于 得 序列 Ai 长 

度 的 两 倍 以 上 ， 且 必须 是 2 的 整数 次 笑 ， 即 nm 一 公 。 

注意 ， 序 列 AG),zGt 和 226) 的 长 度 直 程序 自动 判 判 。 


四 、 子 函数 程序 (文件 名 :convold.c) 


并 include ”math, he 

并 include ”stdio. hy 

井 include ”stdlib. 和 h” 

并 include ”了 ft er 

并 inciude ”jirfft. cy 

YoiQ convold(hfiname ,xftnameyyfnameyn) 


intns 
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ehar # hfnare ，xXfname，<*yfnatrmes 
{ int ijsmyil,i2n2,ts0lenynum nblks: 

doubple tyxLSD001; 
doubje < xzTy 关 Sf# 
FE 和 DLPRE *fpyxfply xip2 
r 一 mallocfn x sizeof(double)) 
h 三 Imnallocgenxsizeoffdoubley 7 
n2 一 hn/2; 
fp 一 fopenfhfname sr ji 
1 一; 
友 hile〔1fecfgip)y》 

{ fcanftfpy 的 ] 拓 ，hL 十 十 ]); } 
felesegftp7# 
血 一 1 一 1 
Jor 0G 王 mi<nji 十 十 ) 

fnhLil= 一 0.0 
rtftChyn3i 
s 一 mmalloceftna 一 各 十 17 xsSizeoftgdouble7]i 
num 一 m 一 吕 十 1 
好 1 一 topenkCxtnarme yeTr 3 


fp2 一 fopenfyftnarmaey ww 5 


len 一 50001 
1s0 一 站 | 
do 


f fter 在 一 1]s0ii<50001 十 十 》 
{ 让 (fteoftftpl)) 
{ len 一 ji 
break ; 
} 
fscanfffip1) 2 昕 ] 反 全 xD) 


nblks 一 floorfgen 一 n 十 mdouble)numy) 十 1 


for 站 一 0 j<<nbjlks;j 十 十 ) 


{《 江 人 一 = 一 0) 
Ttor G= 一 sit<c tm 一 人 人 十 十 ) 
ri 一 0.07 】} 


fter (fm 一 17510cnR 十 十 ) 
1 一 1 一 和 十 1 


xD 一 xDil]; 
} 
) ， 
else 
t for (0 一 0Oi<ni 十 十 ) 
(il 一 1 十 jxnumn 一半 1; 
t+ 人] 一 X[i1j; 
} 
foer(i 一 01<numii 十 十 ) 
ti 一 工 寺 省 一 1)#numy 
x[Li1] 一 si]; 


Iftttryn7; 
rL0] = 一 xzL0O1x<hEoji 
fLn2 | 一 rn2]x<hLan21]i 
for 《一 1i<a2ii 十 十 ) 
《一 下 [Dixtrt] 一 hn 一 了 <zr[n 一 训 ; 
rn 一 让 一 hxzrm 一 可 十 hn 一 让 xzrpDi]s 
Tr[Li] 一 Ti 
} 
irffterynyt 
for 人 一 (mm 一 176<nii 十 十 )》 
fi 一 1 一 外 十 1 
s[Lil]j 一 上 [ij; 
】 
foer【〈i 王 0ii<num 社 十 十 ) 
《tiL 一 1 十 总 一 1nums 
x[i] 一 si 
} 
二 ]xmimij 
fer 1 一 05i<ilgi 十 十 ) 
t fpPrintfftp2,7”%6lfxn yxLi])5 } 
for fi 一 iii<clenii 十 十 》 
{i2 一 1 这; 
xLi2] 一 xbLi]; 
} 





180 一 len 一 这; 
whilse 《lftsotCfplyys 
fcioseftfip173 
fclose (fp27， 
freeKr)]s 


freefs)i; 


} 
五 . 例 题 


设 序 列 正 ( 门 一 一 8 一 1 一 0 103 序列 zG) 一 ev 一 0 1 ,9999 3 
分 段 长 度 ? 一 64。 计 算 序列 疡 与 了 (全 的 线性 卷 积 yz)， 并 将 结果 存 于 文件 y，dat 中 。 
显 而 曙 见 , 卷 积 y( 站 为 :3 人 一 一 zG 一 1)。 
首先 ,用 如 下 程序 (文件 名 :convin.c) 在 磁盘 上 建立 数据 文件 h. dat 和 x. dat。 
和 inelude "tmath. hy” 
划 ipclude "stqio. hy 
mainK) 
{ int jyjylen'i 
doupble hfL11],xL1000]， 
FILE * 所 ; 
lor (一 Ofi<<1Llii 十 十 ) 
fn 一 0.0; } 
h[I 一 一 1.0; 
钙 一 foepenfhl dat ww 7 
for ki 一 Qiis llii 十 十 ) 
{ fpPrintfffp 放 mhLi); ) 
felose(fp) 
ln 一 1000; 
for fi 一 05j<<lenii 十 十 ) 
f xf 一 exp( 一 0.01xiD } 
年 一 fopemf7xLt. at yw 
for 0 一 Dj<109 十 十 ) 
for fi 一 Dii<lenii 十 一 1) 
{ fpPrintfKip 风 ny xf] 》 
floseffpP?# 


主 函 数 程 序 ( 文 件 名 :conveld. m) 如 下 。 它 该 取 数据 文件 h. dat 和 x. dat ,并 进行 卷 积 
计算 ,结果 存 于 数据 文件 y.dat 中 。 
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检 include "convold, ec 

main( ) 

t int 六 
char h[] 一 “dat" ，xX[] 一 "dat ，y[] 一 "ydat”j 
R 一 64; 
convold(h ,xyyny; 


} 


用 如 下 程序 【文件 名 :COILVOUt， c) 该 取 数 据 文件 x. dat 和 y.dat, 并 将 它们 显示 出 来 。 


并 includqde ”stdio. hy 

main《》 

{ int jyleny 
double xL20],.y[L20]; 
FTILE #tp1，# 志 2 
len 一 20; 
二 1 三 fopen(7x,dat or 7 
fp2 一 fopen("y,dat” gr) 
for fi 一 oOii<lenii 十 十 ) 

fscanftip1” 冯 ] 算 , 人 x[Li 

BrintttOriinal Sequencewn” 8 
fcer 《一 0Oit<<zlen 红 十 一 和) 


{ PrintfCw 吧 10. 7 昕 10. 7i” ,xj，xDi 十 1 
Printft 色 10. 守 如 10. ny xi 十 2],x[ 十 3])) 
} 


for fi 一 0;i<lenii 十 十 ) 

fcanf(fp27 9 yt); 
PrintfikLinear Convolutionsny 7 
for fi 一 65i<lenii 十 一 4》 


{ Printf 人 2 %10.7f 牟 10. 7? 宅 ,7E]y[Ci 十 1 
Printf (7 %10. 守 只 10.7fn2 yLi 十 ?2,yLi 十 3]); 
fclose(fp1); 
fclosecfp273 


} 
程序 convoeut,e 的 运行 结果 ， 
序列 zGD) 台 一 0 1y19) 为 
1.0000000 0. 9900500 0. 9801990 0 9704460 
0. 9607890 0.9512290 章 . 841765 D, 9323940 
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0. 92311060 昌 . 913931 0 0 98048370 0. 8958340 


0. 8869200 0. 8780950 D. 8693580 .8607080 
0.8521440 0. 84366350 0 8352709 0. 8269590 
线性 卷 积 yi G=0,1，，19) 为 
0.0000000 一 1. 0000000 一 0. 9900500 一 0 9801990 
一 和 9704460 一 0.9607890 一 0 9512290 一 0. 98417650 
一 9323940 -0.9231160 一 小 9139310 一 0.9048370 
一 0.8958340 一 0.8869200 一 0. 8780950 一 0. 8693580 
一 0.8607080 一 0.8S21440 一 0.8436650 一 0.8352700 
$ 3.4 惧 速 相关 
一 、 功 能 
用 人 快速 傅立叶 变换 计算 两 个 有 限 长 序列 的 线性 相关 ， 
二 、 方 法 简介 


设 序列 (mo 的 长 度 为 好 , 序 昼 (2) 的 长 度 为 ,序列 z(e) 与 08) 的 互相 关 定义 为 


zt 一 DiztoG 十 个 ，7 一 一 (一 Do 一 1 
序列 *Ga) 的 自 相 关 定 义 为 


对 一 1 


za) 一 >iTDzG 十 1 = 一 (一 1 一 1 


1 一 属 


显然 ,如 果 M= 六 并且 序列 ya) 与 xf(a) 相 同 ,那么 互相 关 就 变 成 自 相 关 。 
用 快速 傅立叶 变换 计算 线性 相关 的 算法 如 下 : 
1, 选择 工 满足 下 述 条 件 








人 人 NT1 
工 二 和，Y 为 正 整 数 
2， 将 序列 ze 与 Ya) 接 如 下 方式 补 零 , 形 成 长 为 工 一 2 的 序列 
_ 了 《了 了 了 儿 尹 二 01 一 1 
zcoD 一 | 
二 天 一 和 十 1] 元 一 1 
站 了 大 一 日 1 “一 2 
ro 有 一 划一 1 村 十 放 一 2 
0 ， 一 半 十 让 一 1 周二 并 一 | 
3. 用 FFT 算法 分 山 计 算 序 列 了 (与 yz) 的 离散 傅立叶 变换 买 ( 友 与 了 (有 
也 一 1 
入 (RD) 一 之) 克 (ee 


此 一 是 
-1 
了 (一 了 17CaDer ee 


P 一 局 





15 名 





4. 计算 和 (8 与 了 (的 的 乘积 
ZE 一 XRDY( 有 

其 中 x 启示 复 共 斩 ; 

5， 用 FFT 算法 计算 Z(R) 的 离散 和 倩 立时 反 变 换 , 得 到 线性 相关 zkn) 

=0D = 于 Ze 0 一 1 

序列 = 人 的 前 王 十 闪 一 1 点 的 值 就 是 序列 z(a) 与 ya) 的 线性 相关 。 

兰 、 使 用 说 明 

1. 子 信 数 语句 


void correl(xsyrtmy nrleny 

2， 形 参 说 明 

x 一 一 双 精 度 实 型 一 维 数组 , 长 度 为 吓 。 开始 时 存 故 实 序列 *(t) ,最 后 存放 线性 相关 
的 值 ， 

y ~ 一 双 精 度 实 型 一 维 数组 ， 长 度 为 上 。 存 训 实 序列 yi) 。 

上 一 一 整 型 变量 。 序 列 > 人 的 长 度 。 

n 一 一 整 型 变量 。 序 列 y(G) 的 长 度 。 

len 一 一 整 型 变星 。len 闻 十 2 一 1， 旧 必须 是 2 的 整数 次 虹 ， 即 Ien 一 2 。 


四 、 子 六 数 程序 (文件 名 :cortel,ey》 


提 jnclude ”std]ib. hb 
共 inelude 2rfft er 
共 inelade ”ifft, ee 


void ceortelfx ynyleny》 











int myalen; 
double x[L],yfi]; 
f int ijylen2 
double t+， 关 25 
z 一 mallocklen # sizecfi(doubley7; 


for 在 一 mii<lenyi 十 十 》 


{x[ 一 003】 
forf G=0Oii<gm 一 1) 计 十 十 ) 
{z[ 计 一 0.0; ) 


fer 0 一 (人 ma 一 1)5i< 所 一 (m 十 mn 一 211 十 十 ) 
{ z[i 计 = yD 一 吕 十 ;， )} 

for 避 一 (mn 十 na 一 1)5i<lenii 十 十 ) 
{z[i 一 DO0; } 

Tfitgxylen); 
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trftft(zylen7 
Len2 一 leny724 
xfL9] 一 xE0]xzLO]# 
x[len2] 一 x[ten2]x zLlen2]; 
fcor 《一 1;i<len2ii 十 十 ) 
ft 二 [ixz[i 十 xlen 一 说 *zLlen 一 和 3; 
xf[len 一 计 一 x[Li] * zflen 一 订 一 x[lena 一 这 关 zi 
x[i 一 t; 
} 
ifft(Kx len7# 
freekzys 


4 
五 , 例 题 


设 序列 zG) 为 { 一 1;5,2,7,6,9,4}， 其 长 度 严 =7; 序列 y0 为 11,2,1， 一 34,5j， 
其 长 度 a=6。 计算 序列 xz 人 与 "人 G) 的 线性 互相 关 以 及 xG) 的 自 相 关 , 并 与 直接 计算 结果 
进行 比较 。 

主 范 数 程序 (文件 名 :correl. my): 

林 ineclude ”coryel, cr 

tmainf 

fint ijmny mlylenylenl; 

double z[ 16]， 
double x[16] 一 (一 1;5,2,7,6,9,4}，y[16] 一 人 1 21 一 344)515 


fL 一 了; 
nm 一 训 
len 一 16j; 


lenl 一 m 十 己 一 1 
ml 一 坦 一 1 
foer 人 一 一 mni 十 十 》 
{ 5 和 十 m11 一 0.0; 
for G 一 Dii<mii 十 十 》 
{ 这 (fi 十 iD > 二 0)g8U+D<al) 
zj 十 ml] 一 zj 二 ml] 十 xL]xyb 十 i; 


} 
PrintfCrDirect Caiculation of Lineat Cross 一 correlationny ) ; 
for (ii 一 Dii<clenlyi 十 十 ) 
{ Printf( 91 1 zi 
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让 全 0%4 一 一 3》 Print ji 
printf(w ny 7 
coTrelfxyyymynrlen)li 
printftfrFast Catieulation of Linear Cross 一 coftelationwny ) 
for 4 一 03i<clenlii 十 十 ) 


1 Ptintttw 0610, 1 xy 
证 总 吕 4 一 一 3) printtk sn 7 
} 
printf ”va ?3 
Im 一 
一 
len 一 16; 


lenl 一 mm 十 一 1; 
ml 一 mm 一 1; 
fcer 意 王 一 mij<mni 十 十 ) 
{ z[D 十 mL 一 各 有; 
for fi 一 0ii< mi 十 十 ) 
{iC(CG+HiD >=0)8&CGHD<n)) 
zj 十 ml 一 zj 十 ml1] 十 xxx 二 is; 


】 
printft("Direct Calcnlation of Linear 生 Utocortelationn” 
fer 和 一 Dii<clenlyi 十 十 ) 


f printfCn %10. tlfwyz[i]); 
计 总 站 4 一 一 3) Drintftf ny 3 
》 
printff” sn 7 


correl(xsXvtmnonylenys 
printfkyFast Caleculation of Lineat 和 utocorrelationsn” 
fer 6 一 Dii<clenlyi 十 十 ) 


{ PrIintEC 铬 10. 11 碾 ,x[i]); 
让 《ii 扣 4 一 一 3) Printfg> ny 3 
4 
Printttwvnw 3 
} 
运行 结果 ， 


序列 zx 人 与 ?的 线性 互相 关 的 直接 计算 结果 





二. 昌 1 7， 站 





14.0 54. 0 
27.0 33.0 
序列 < 人 ?的 线性 互相 关 的 快速 算法 结果 
4.0 17.0 
11.0 54.0 
27.0 33.0 
序列 z(i) 的 线性 自 相 关 的 吉 接 计算 结果 
236.0 1219.0 
2205.0 4948.0 
2205.0 2707.0 
236.0 
序列 zi 的 线性 自 相 关 的 快速 算法 结果 
236.0 1219.0 
2205.0 4948.0 
2205.0 2707.9 
236.0 
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第 四 章 “” 数 字 滤 波 器 的 时 域 和 频 域 响应 


8 4.1 数字 滤波 器 的 频率 响应 


一 、 切 能 

计算 数字 让 滤器 的 频率 响应 、 棚 频 响 应 和 相 频 响应 。 

二 、 方 法 简介 

设 数字 滤波 器 的 输入 为 了 (二 ) ,输出 为 y(&), 则 该 滤波 器 可 用 差分 方程 表示 为 
y(R) 十 之 ay 人 (一念 一 > 5Dz( 寺 一 六 





其 传递 函数 为 
于 cz 二 at0) 十 加 (1)z 十 … 十 2CaD2 
1 十 ax- 十 十 afV)Iz 
其 中 ci G=1 2 和 5G) 6 一 0 1 分 别 是 数字 滤波 器 分 母 多 项 式 和 分 子 多 
项 式 的 系数 。 
数字 滤波 器 的 频率 响应 媚 (m) 为 


广 0) 十 光 K1)e 人 十 人 十 忠于)e 和 


0) 一 二 Te 二 RON)er 





即 
责 (o) 一 Re[ 瑟 Ko)] 十 了 Im[ 五 (ay)] 
一 | 吾 (@) em 
其 中 | 豆 (o | 是 数字 滤波 器 的 幅 频 响应 , 若 用 分 员 表 示 , 则 为 20 logn| 互 (oa)| (dB)。 数 字 
滤波 髓 的 相 频 响应 可 表示 为 








_if InEL 瑟 Co 
代目 )》 一 tan 1 开交 
三 、 使 用 说 明 
1， 子 函数 语句 
void gainkbavmny xyylenysigny) 
2， 形 参 说 明 


b 一- 双 精度 实 型 一 维 数组 ， 长 度 为 Cn 士 1) 。 存 放 涉 波 器 分 子 多 项 区 的 系数 5G)， 
双 精 度 实 型 一 维 数组 ， 长 度 为 Co 十 1)。 存 放 滤波 器 分 母 多 项 趟 的 系数 aCD 
m 一 整 型 变量 。 涉 波 器 分 子 多 项 式 的 阶 数 ， 





且 
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a 一 一 整 型 变量 。 滤 滤器 分 母 多 项 式 的 阶 数 ， 

x 一 一 双 精 度 实 型 一 维 数 组 ,长 度 为 ltn。 当 sign=0 时 ， 存 放 泪 波 器 频率 响应 的 实 
部 Re[E(o)]; 当 sign 一 ] 时 ,存放 滤波 器 幅 频 响应 | 瑟 (o)|; 当 sign 一 2 时 ,存放 用 分 贝 表 
示 的 证 波 器 幅 频 响应 | 鼠 (w) | 。 

y 一 一 双 精 度 实 型 一 维 数 组 ,长度 为 ltn。 当 sign=0 时 ,存放 滤波 器 频率 响应 的 虚 部 
Im[ 瑟 (wo] ; 当 sign 一 1 和 2 时 ,存放 证 波 器 的 相 频 响应 ww) 。 

len 一 一 整 型 变量 。 频 率 响 应 的 长 度 。 

sign 一 一 整 型 变量 , 当 sign 一 0 时 ,计算 滤波 器 频率 啊 应 的 实 部 Re[ 王 (o] 和 虚 部 Im 
LE(o7?] ; 当 sign= 一 1 时 ,计算 泪 波 器 的 巾 产 响应 | 瓦 (Co) | 和 相 频 响应 风 ow); 当 sign 一 2 时 ， 
计算 证 波 器 的 蛋 频 响应 | 瓦 (wo)|( 用 dB 表示 ) 和 相 频 响 应 Ke) 。 


四 、 子 兽 数 程序 (文件 名 : gain.c) 


并 include ”math. hyw 
void gain(b,aymynyxyyvlenysign) 
int tmmynylenysijgr# 
deuble b[], at],， x[j, y[; 
fintiyky 
double atyaiybrybiyzryaitmreydennunmrynumiyfireqytemps 
for 全 一 05K<lenk 十 十 ) 
(1eq 一 下 关心.5ACten 一 173 
zf 一 0Os( 一 8 0Oxatanf1l.0) 基 freq) 
型 一 sin 一 8 8x atanf1. 人 0) xfreq) 
br 一 0 
hi 一 0.0; 
for 如 一 mi>0ii 一 一 ) 
fre 一 brs 
im 一 bis; 
br 一 (re 十 bL])xmr 一 im 关 3 
hi 一 《re 十 hg7x 昌 卡 ims 工 ; 
} 
ar 一 站 .0 
al 一 0.0; 
for 《一 nii 盖 0 一 一 ) 
{ Te 一 ar# 
im 一 ai# 
ar 一 (re 十 ai yx 中 一 inmxaii 
ai 一 (re 十 alLij)xzi 十 inmxzri 
} 
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br 一 br 十 bLoj， 
ar 一 ar 十 1.0; 
nurmr 一 arxbhr 十 ai 关 bi 
numi 一 arxhi 一 aixbr; 
den 一 aTxar 十 al 共 音 1 和 
X[k] 一 nutmnrrdens 
y 任 ] 一 nutmiyden: 
Switch 〔sign) 
1 ecase 】: 
{ tetnp = sqtt(Cx[k]*x[k] 十 y[k]xyLk]); 
y[k] 一 atan2ky[k],x[Ck]); 
x[k] 一 tetmp; 
break ; 
} 
Case 了: 
{ temp 一 xEE]x<x[F] 十 y[ 攻 ] sy[ 丰 ji 
y[k] 一 atan2ky[k],x[k )i 
x[k] 一 10.0*logl0ctemp75 





} 
} 
} 

》 

五 . 例 题 

数字 系统 的 传递 函数 为 

一 人 1]1zx~! 
刀 () 一 工 二 09 二 


求 该 系统 的 幅 频 响应 和 相 频 响应 ,并 画 出 相应 的 图 形 。 
主 函 数 程 序 ( 文 件 名 :gain. my)， 
并 inelude "stdio, hy 
划 衣 clude ”gaiihe” 
imaintf 7 
{f imt 1 ， 
double af 一 114.0，0.0，0,.9} ,jb 吕 一 (100， 一 01 
double {,x[3001,y[300]; 
FiLE #* 征 ? 
gaintb ay 1 2:xyy 300)3 


计 《《【《 所 一 各 peng"gainam dat ww")) 一 = NULL ) 
{ printffeannot open ile "gainam.dat” J ni 
已 Xit 和 7 
forti 一 Dii<3008i 十 十 )》 
ff 一 1# 0 5A72993 
fprintfrfp ”的 二 双 Jfa ,xl 
felose (fpP7， 
这 (人 ( 生生 fopenC"gainph .dat mw 一 = NULL ) 
{ PTIintfkcannot Open 如 le gainph. dat | ns 
eXitgD)# 
} 
forua=0Oii<3005i 十 十 
{ 一 ix 0.57299; 
brintfffp 7 邮 才 嗓 lfna7fy[Diy，} 
fclose(fp); 


该 数字 系统 的 幅 频 响 应 见 图 2 一 4 一 la)， 相 频 响 应 见 图 2 一 4 一 b) .从 这 两 个 图 可 以 看 
出 ,系统 的 内 频 响应 在 频率 为 0. 25 处 有 一 个 谐 插 峰 , 其 相位 在 该 处 从 二 到 0 有 一 个 妈 变 。 





也 ,1 口 . 口 ， 日 寻 马 , 
昌 “ 化 赔 素 





图 2 一 4 一 18 数字 系统 的 幅 频 玖 应 图 2 一 4 一 1b 数字 系统 的 相 频 响应 


Y4.2 级 联 型 数字 滤波 器 的 频率 响应 


一 、 功 能 
计算 级 联 型 数字 恋 波 器 的 频率 响应 、 幅 频 响应 和 相 频 响应 。 


166 





二 、 方 法 简介 
级 联 型 数字 滤波 器 欧 传 递 函 数 为 


瑟 G) = [Ge) 


1 


让 10) 十 iDz 十 十 有 ivDz 
1 十 ac 十 二 CN 


其 中 六 阶 节 忌 ,(e ?为 


站 0 区 Da 二 二 82a 
? 1 十 efj1)z 十 十 Ge 


这 里 at fs 和 百 《 了 9 (一 1 2 了 01 分别 是 数字 滤波 器 分 母 多 项 式 和 分 
子 多 项 式 的 系数 。 


级 联 型 数字 滤波 器 的 频率 响应 吾 (ow) 为 


天 - 。 ， 。 
加 710) 十 玉 C1)e 十 十 百 ( 放 人)e 
忆 () 匡 1 十 el)e 7 十 十 ae 





忆 


吾 (w= RefE(o)] 十 Jim[(o)] 
一 | 五 (on |eem 


其 中 | 瑟 (w) | 是 数字 滤波 器 的 幅 频 响应 , 若 用 分 贝 表示 , 则 为 20 logn| 瑟 (o| (dB)。 数 字 
让 波 器 的 相 频 响应 可 表示 为 





_ -1 Jm[ 忆 ee? 

玫 包 》 一 tan 弄 到 Cj 
三 、 使 用 说 明 
1， 子 画 数 语 名 


veid gaincftbaynynsyxyyyienrsigny) 
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2， 形 参 说 明 

b 一 一 双 精 度 实 型 二 维 数组 ,体积 为 nsx Cn 十 17。 存放 滤波 器 分 子 多 项 式 的 系数 ， 
Hb [DCD] 表示 第 j 个 nm 阶 节 的 分 子 多 项 式 的 第 1; 个 系数 。 
双 精 度 实 型 二 维 数组 ,体积 为 ns X Cn 二 1)7。 存 放 滤 波 器 分 母 多 项 式 的 系数 ， 
a[j]j] 表 示 第 j 个 n 阶 节 的 分 母 多 项 式 的 第 i 个 系数 。 

na 一 一 整 型 变量 。 级 联 型 滤波 器 每 节 的 阶 数 。 
整 型 变量 。 级 联 型 滤 诈 器 的 n 阶 节 数 工 。 

x ~ 一 双 精 度 实 型 一 维 数组 ， 长 度 为 ltn。 当 sign=0 时 ， 存 放 滤 波 器 频率 响应 的 实 
部 Re [ 鼠 (w)?] ; 当 sign=]1 时 ,存放 滤波 器 幅 频 响应 | 已 (oa)|; 当 sign 一 2 时 ,存放 用 分 贝 
表示 的 泪 波 器 幅 频 响应 | 九 (w) | 。 

7 ~ 一 有 精度 实 型 一 维 数组 ,长 度 为 ln。 当 sign=0 时 ,存放 让 波 器 频率 响应 的 虚 部 
Im [Co)] : 当 sign 一 1 和 2 时 ,存放 滤波 器 的 相 频 珊 应 扩 w) 。 

len 一 一 整 型 变量 。 频率 响应 的 长 度 。 

sign ~ 一 整 型 变量 , 当 sign 一 0 时 ,计算 泪 波 器 频率 响应 的 实 部 Re[ 王 (o)] 和 虚 部 Im 
[ 豆 (o)] ;: 当 sign=1 时 ,计算 涉 波 器 的 幅 频 响应 | 鼠 (w) | 和 相 频 帮 应 We 六 当 sign 一 2 时 ， 
计算 滤波 器 的 幅 频 响应 | 豆 (w) |( 月 dB 表示 ?和 相 频 响应 ofe) 。 


四 、 子 函数 程序 (文件 和 名: gainc,c》 


并 inelude ”math. hy 


Yocid gaincfb ,avynynas,xyyylenysjgn) 





旺 





也 号 


int nynsylenysigni 
double bLJj,，alj, xf]，y[]; 
{ int ij 上 ml 
double aryaiybrybi'zr,ziyimvtesdenynumrinumiyfreqytemp， 
double hryhi'tryti' 
nl 一 mn 十 1; 
for (一 0ik<clengk 十 十 ) 
{ freq 一 Kx0.5Aflen 一 175 
ZT 一 《GOSC 一 久 . 0x atanf1.0) xfreqys 
下 一 Si 一 入 各 atanf1,.0) xfreq7y 
xlk 一 1.0， 
y[k] 一 0. 0 
Jor 全 一 0j<cns5j 十 十 ) 
{ br 一 癌 0i 
bi 一 0. 0; 
or 站 一 ni 0Oii 一 一 ) 
{re 一 Br 
im 一 ii; 
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br 一 【te 十 bxnl 十 让 Jsxzr 一 imsx2ii 
bi 一 (re 十 bDxanal 十 站 7* 下 十 imaxrzri 
} 
ar > 一 昌 ,DD; 
al 一 0. 0 
for 在 一 nii>0ii 一 一 》 
fre 一 ar 
im 一 ai; 
ar 一 【te 十 axrnl 十 可》* 于 一 inm* 允 ; 
ai 一 《re 十 aixnl 十 站)x 下 十 ims#zri 
} 
br 一 br 十 brxnl 十 0 
ar 一 ar 十 了 .0 
numt 一 ar#xbhr 十 axbiy 
nuni 一 ar#sbi 一 aixbri 
den 一 atrx#ar 十 at#aii; 
hr 一 ntmtrrden; 
hi 一 nutmiyden ; 
tr 一 XLk]xhr 一 y[]*biy 
记 一 x[LK]xhi 十 y[Lk]*hry 


x[k] 一 {tri 
y[k] 一 ti; 
} 
Switch 《Signy) 
{ ease 1， 
{ temp 一 sqtrt(Xx[k]*x[k] 十 y[k]xey[Ck]>; 
过 《termp 上 一 0.0) 
fy[k] 一 atan2(y[k],x[k]) ) 
else 
{yLk] 一 00 } 
x[LkE] 一 tetmnpb; 
break 
} 
Case 2 
{ temp 一 x[k]*x[k] 十 [KE]*y[k]; 
计 (tetmmp 1 一 0.0) 
{3y[K] 一 atan2(y[K],x[k])， 
else 





698 





{ tembp 一 1.0e 一 40; 
y[] 一 0 
区 [下 ] 一 10.0x*loglOttemp); 


} 

} 

五 、 例 题 

数字 涯 波 器 由 两 个 子 系 统 五 (= 和 万 (xz) 级 联 而 成 ,其 中 吾 ;(z) 为 

0.2 
下 一 工本 
呈 :5z) 为 
豆 区 2) 盖 0.05 一 0 1z 








1 一 入 95z 1 十 0.3z 一 
选取 参数 n 一 2，ns 一 2，len 一 300， 求 该 滤波 固 的 幅 频 响应 。 
主 函 数 程 序 ( 文 件 各 :gainc, my): 

并 inelude ”stdio. nm 


荐 include ”gainc. cy” 





Iaaint 》 

fint ivnynsi 
double af2][3] 一 111.0， 一 0 和 8， 0.01，11.0， 一 0.95，0.97 
douhble br2][3] 王 110.2，0.0D，0.0)10.05， 一 站 1，0.0 和 
double f,xL3001,7[3001; 


下 代 背 < 
也 一 2; 
ng 一 了; 


gaine (byasnmnynsy xyy300:1)7， 


让 【【《 种 一 fopent7gaincam .dat yw")) 一 一 NULL ) 
{ printft(ycannot open fle "gaincarm dat 1 An 
exittOD) 
} 


for 一 Diis<c3005i 二 十》 
{ 开 一 ix 0.57299; 
frintfkgtp 多 区 xi 
flosetdfipy: 
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送行 结果 ， 
级 联 型 数字 清 波 器 的 幅 频 响应 如 图 2 一 4 一 2 所 示 。 
0O.a25 


.20 


0.0 0.1 02 03 04 05 
归 一 化 频率 
图 2 一 4 一 2 级 联 型 数字 滤波 器 的 帆 频 响应 


4.3 数字 滤波 器 的 时 域 响应 


一 、 功 能 

计算 数字 让 波 器 的 单位 冲 激 响应 和 单位 阶 奢 响应。 

二 、 考 法 简介 

设 数字 滤波 器 的 输入 为 xzG6) ,输出 为 >()， 则 该 滤波 器 可 用 差分 方程 表示 为 
3 (ED) 十 之 ai) y( 仆 一介 一 之 6G) (有 一 站 


其 传递 函数 为 


5(0) 十 Bl1)z 1 十 … 十 CaM)g-5 
Ge) 一 1 十 afl)z- 十 罗 十 eCND)z 下 


其 中 ca 人 GD G= 一 1 和 BG) 0 一 0 1 AM 分别 是 数字 滤波 器 分 母 多 项 式 和 分 子 多 
项 式 的 系数 。 

当 输入 序列 z(e) 一 CE) 时 ,输出 (人 就 是 滤波 器 的 单位 冲 激 响 应 ; 当 输 入 序列 z(p) 
一 zt&) 时 ,输出 ye) 就 是 滤波 器 的 单位 阶 妈 响 应 ， 


三 、 使 用 说 明 
1 子 函 数 语句 


void yespfxyy xlybyasma) 
2， 形 参 说 明 
x 一 一 双 精 度 实 型 一 维 数组 ， 长 度 为 jk。 存 放 滤 波 器 的 输入 序列 。 
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y -一双 精 度 实 型 一 维 数组 ， 长 度 为 ly。 存 放 涉 波 器 的 输出 序列 。 

lx 一 整 型 变量 。 给 入 序列 的 长 度 ， 
ly -一 整 型 变量 。 输 出 序列 的 长 度 . 
b 一双 精 度 实 型 一 维 数组 ， 长 度 为 (m 十 1)。 存 放 滤波 器 分 子 多 项 式 的 系数 8CG)。 
a 一 一 双 精 度 实 型 一 维 数组 ,长 度 为 (十 1)。 存 放 滤波 器 分 母 多 项 式 的 系数 enG)。 
m 一 整 型 变量 。 瀑 波 器 分 子 多 项 式 的 阶 数 ，。 
n 一 整 型 变量 。 泪 波 器 分 母 多 项 式 的 阶 数 。 


四 、 子 函 数 程 序 (文件 名 : resp.c]) 


void res 区 人 xyslxylyybyaytnyny) 
int ]x liyymoni 
doubje xL:y[j,btEj,arl 
《int kisit 
doubie sutni 
for ( 必 =0ik<ly 汪 十 十 》 
(sum 一 0.0; 
forG 一 03i< 一 mii 十 十 ) 
{ 让 (全 一 关 一 0) 
{ 这 一 (《 全 一 D<]x)9? 人 一 让 gx 一 1); 
sutm 一 sum 十 bj]:*xLil] 
} 
} 
for (一 15i< 一 ni 十 十 》 
{ 让 《人 一 D) > 一 0 ) 
suim 一 sum 一 a[i]#y[k 一 记 ; 
} 
y[k] = sumsi 
} 


五 , 例 题 


数字 炙 波 器 田 两 个 子 系统 豆 , (z) 和 瑟 :(z) 级 联 而 成 ,其 中 五 (z) 为 
加 0.05 一 0.1g-: 

人 Ge) 一 1 一 0.95z-1 十 0.9z”~2 

瑟 : 《站 为 

加 0.2 

0 

选取 参数 ]x 王 2，ly=100， 试 求 该 滤波 器 的 单位 阶 跃 响应。 
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主 范 数 程序 (文件 名 :resp, my)， 


并 inelude ”stdip. hy 


并 1nelude ”Yes。ew 


tain 


(5 


{ int imnlytnzy nn2y xy 
double y[100],z[100]， 
double x[2 一 和 .0，1.0y，bf[2] 一 人 190.05， 一 0.1)，a[L3] 一 411 0 一 总 985，0.9) 
double 由 1] 一 10,.2}，cL 引 一 人 ,0， 一 0. 8} 


FILE 关 吉 # 
lx 一 2 
ly = 100; 


mi 一 1; 刀 1 
im2 一 03 n2 
过 【种 一 fopenfyresp,datrw")) 一 一 NULL ) 
{ brintffrcan not open file ”tesp- dat | ni 


已 区 让 【站 ) 


13 


resbfxyyylxlyybyastmlnt)y 


respfkyyzyly,l]yydycsm2nz)， 
fotti= 一 0ii<lyiiT 十 》 


{ fpPriatftp 用 得 用 fn iszLi 


fclose(ip?， 
for (一 0ii<323i 十 十 ) 
{ Printf(y 鳃 130.7t zz[Li]) 

计 各 贤 4 一 一 3) printfCysn 3 


} 
运行 结果 


单位 阶 跃 响应 (前 32 点 ) 为 


数字 滤波 


} 


0. 0100000 
0. 0501862 
人 0387318 
0. 0422166 
0. 0606738 
全. 0489988 
0. 0487101 
0 05755 儿 


,0075000 
.0430680 
.0542862 
.0388861 
.0550934 
,0565122 
.0465725 
.0544950 
器 的 单位 阶 牙 响 应 如 图 2 一 4 一 3 所 示 。 


, 0134750 
“0300183 
06027097 
0463080 
.0466514 
0591451 
. 0502234 
.0498990 


一 0.0388312 
一 0.0271734 
一 全 ,0832457 
一 站 , 05648841 
一 9. 0438701 
一 品 05493237 
一 避 0556519 
一 癌 .0482991 


173 








oo 
-0.02 
-0.03 
-0.04 
容 -0.05 
虑 
-0.06 
9 40 860 0 
搓 本 序 寻 
图 2 一 4 一 3 级 联 型 数字 滤波 器 的 单位 阶 跃 响应 
$ 4.4 直接 型 IER 数字 淤 波 ( 一 ) 
一 、 世 能 
用 直接 型 TIR 数字 滤波 器 进行 数字 痉 波 。 
二 、 方 法 简介 


设 TR 数字 滤波 器 的 输入 为 xC) ,输出 为 >), 则 该 滤波 器 可 用 差分 方程 表示 为 
0D 十 阅 aDs 人 天 一 站 = > 60Dz 人 一 汪 
其 传递 函数 为 


Pree) 一 60) 十 CDz- 士 十 Ba 
机 1 十 ez 十 十 weCV)x 7 


其 中 aD 6=12N) 和 Pi 60 ad) 分 别 是 数字 滤波 器 分 君 多 项 式 和 分 子 客 
项 式 的 系数 。 

当 给 定数 字 滤波 器 系数 aG) 与 8) 后 , 即 可 用 上 式 对 输入 序列 (进行 数字 滤波 ， 
从 而 得 到 滤波 器 的 输出 yp》 


三 、 使 用 说 明 
1， 子 函数 语句 


void 和 iter(bya,myasx'lenypxspy) 
2， 形 参 说 明 
hb 一 一 双 精 度 实 型 一 维 数组 ， 长 度 为 人 十 1) 。 存 放 着 滤器 分 子 多 项 式 的 系数 8G)。 
双 精 度 实 型 一 维 数组 ， 长度 尖 人 n 十 1)。 存 放 涉 波 器 分 母 多 项 式 的 系数 et)。 
m 一 一 整 型 变量 。 滤 波 器 分 子 多 项 式 的 阶 数 。 
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如 





n 一 一 整 型 变量 。 滤 波 避 分 母 多 项 式 的 阶 数 ， 
x 一 一 双 精 度 实 型 一 维 数组 , 长 度 为 ln。 开始 时 存放 滤波 器 的 输入 序列 ， 最 后 存放 


滤波 器 的 输出 序列 ， 在 分 块 处 理 时 ， 它 用 于 表示 当前 块 内 的 滤 诈 居 的 输入 序列 与 输出 序 
列 。 


ien 
麻 。 

px 一 一 仅 精 度 实 型 一 维 数 组 ,长 度 为 (m 十 1)。 在 分 块 处 理 时 , 它 用 于 保存 前 一 块 泪 
波 时 的 (ma 二 1) 个 输入 序列 值 。 

py 一 一 双 精 度 实 型 一 维 数 组 ,长度 为 人 n 十 1) .在 分 共处 理 时 , 它 用 于 保存 前 一 块 证 波 
时 的 n 个 输出 序列 值 , . 

当 输 入 序列 xzk) 很 长 时 ,由 于 计算 机 内 存 的 限制 , 常 将 其 分 成 彼此 衡 接 的 若干 块 进 
行 处 理 。 数 组 px 与 py 就 是 专 为 分 块 处 理 而 设置 的 。px 用 于 保存 前 一 亿 滤 让 时 的 (m 十 
1 个 输入 序列 值 , 即 pxf ] 一 txG)，xk 一 D，…:， x(k 一 m)}3py 用 于 保存 前 一 块 滤波 时 
的 na 个 输出 序列 值 , 即 py[ ]=47 企 一 1)， 7 一 2，…， 7 一 D))}。 通 常 , 我 们 假定 滤波 


器 的 初始 条 件 为 堆 , 因 此 数组 px[ j 与 py[ ] 在 沥 波 前 都 要 初始 化 为 零 。 有 关 分 块 处 理 的 
具 体 方法 见 后 面 的 例题 ， 


四 、 子 数 程序 (文件 名 : filter, c) 


并 imnelude Ytmath.ih7 


void filtergbyasimynmyXsleanaypxypy) 





整 型 变量 。 输 入 序列 与 输出 席 列 的 长 度 ; 在 分 块 处 理 时 ， 它 用 于 裘 示 块 的 长 


int mnyieni 


double alj,b[],x[],pxL],pyF]; 


{ nt 上 ,i; 
foer (KK 一 0 让 <leni 必 十 十 ) 
{ Px[0] 一 x[K]， 


for 人 一 0 一 mii 十 十 ) 

{x[kj 一 xDk] 十 boy*pxL]; 
tetr 0 一 5 一 nii 二 十) 

{ [KK] 一 x[k] 一 ax py 》 
诺 《 absfx[k] )》 > 1.0el0) 

4 bzinttk*This is an unstable 和 ltert nz 7 

exit(O2# 

} 
for 站 一 血 拉 > 一 9 ) 

{ px 一 px 攻 一 1]5 } 
TeGr 人 一 忆 和 全 一 2 和 一 一 ) 


{ pyfi] 一 py[Li 一 1J; 》 
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py[1] = xkkj]; 
} 
} 


五 、 例 题 


4 阶 切 比 雪 去 低 通 数 字 滤 波 器 的 传递 诅 数 为 


(zy 0. 001836 十 0.007344z :十 0.011016z 一 十 0.007344z 十 0.001836< 
1.0 一 3.0544z 1 十 3.8291z 一 2.2925z 十 0.55075z 


选取 参数 中 一 4,， nn 一 4,， 块 长 lin 一 25， 求 该 让 波 器 的 单位 冲 激 响应 ,并 画 出 相应 的 图 形 。 
主 函 数 程 序 ( 文 件 名 :filter.mm): 
共 includqde "stqio. hr 


着 include 2“ 了 ilter， ee 











maint ) 
fint iimsnyiensnblk; 
dotuble bL5] 一 10.001836，0. 007344，0. 011016，0. 007344，0. 00183675 
double a[5] 一 和 .6， 一 3.0544，3. 8291 ， 一 2. 2925，0. 55075}y# 
double px[5] 一 10. 0. 0. 0 0. 3 
double pyi5] 一 10 0 0 0. 0. 
doubie xfl25],data!100]; 
FILE *p; 


nblk 一 4; 
x[oi 一 1.04 
for (下 一 1k<lensk 十 十 ) 

fxfk] 一 0.05 } 
for (0 一 0i i<<nblki i 十 十 ) 

{ Tiltertbyaymsnyxylen pxrpy)i 

fcerf (上 一 0 k<cleniy 上 十 十 ) 
{ datalLixlena-Hk] 一 X[LKJi 
X[k] 一 0.0D0) 


} 
PrintfC"Unit Impuise Respohsewny ) 1 
for 如 一 03i<1634i 十 十 )》 
人 Print 9601 71f dataf ij ys 
这 【1i 交 4 一 一 3 》 printfKsny 5 
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二 《ip = fopenf"filter dat wwy)) 一 一 NULL 》 
{ printtfweannot open ile "filter.qat 1 AN 74 
eXitKOD 3 
for《i 一 0yi<<1005i 十 十 ) 
{ fprintf(tp 7 224 fn isydata[i]); 》 


flose (ip7， 
} 
运行 结果 ; 
单位 冲 激 殊 应 (前 16 点 ?为 
0, 0018360 0.0129519 0, 0435460 0. 0949659 
0. 1538388 0.1989473 ”0.2123269 0. 1871151 
0, 1298634 0.0573615 一 0.0100326 一 0.0556283 
一 0. 0715163 一 0.0600246 一 0.0314986 0. 0003172 
单位 冲 激 响应 部 图 2 一 4 一 4 所 示 。 
0,25 
0.20 
0.15 
0.10 
0.05 
带 
芝 0.00 
-0.05 
-0.19 
~0.15 
26 40 89 80 100 
样本 序 
图 2 一 4 一 4 数字 沥 波 志 实说 亿 四 激 响 应 
34.5 直接 型 IIR 数字 滤波 (二 ) 
一 、 功 能 
用 直接 型 TIR 数字 淤 波 器 进行 数字 滤波 。 
二 、 方 法 简介 


设 IIR 数字 滤波 髓 的 输入 为 <(&) ,输出 为 ye) ，, 刚 该 江波 器 可 用 差分 方程 表示 为 
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对 
3(8) 二 人 afDy( 估 一 站 一 全 BC 下 一 站 
] 1 一 访 
其 传递 冰 数 为 





一 0 十 8Ds 十 入 十 AM 
一 1 二 az 二 二 oGVyerr 


其 中 ay 0 一 1 2 和 850) 0 一 0 1 nd) 分 别 是 数字 让 波 器 分 冉 多 项 式 和 分 子 铭 
项 式 的 系数 。 

当 给 定数 字 淹 波 器 系数 eaG) 与 50) 后 , 即 可 用 上 式 对 输入 序列 zx(&) 进 行 数字 滤波 ， 
从 而 得 到 请 滤器 的 输出 y(R) 。 


三 、 使 用 说 明 
1， 子 函数 语句 


void filterytb ,aymeny xyy Lenypxypy) 

2， 形 参 说 明 

b 一 一 双 精 度 实 型 一 维 数 组 ， 长 度 为 (tm 十 17。 存 放 滤 波 髓 分子 多 项 式 的 系 煞 Bi 。 

a 一 一 双 精 产 实 型 一 维 数 组 ,长度 为 (na 十 1)。 存 放 滤 波 器 分 母 多 项 式 的 系数 att) 。 

m -一 整 钥 变量。 滤波 器 分 子 多 项 式 的 阶 数 。 

n -一 整 型 变量 。 庆 波 器 分 丰 多 项 式 的 阶 数 。 

x 一 一 双 精 度 实 型 一 维 数 组 * 长 度 为 ltn。 存放 让 波 器 的 输入 序列 ; 在 分 块 处 理 时 , 它 
用 于 表 永 当前 块 内 的 滤波 器 的 输入 序列 。 
y 一 : 双 精 度 实 型 一 维 数组 , 长 度 为 len。 存放 汪 波 器 的 输出 序列 ; 在 分 块 处 理 时 , 它 
用 于 表示 当前 块 内 的 让 波 器 的 输出 序列 。 在 滤波 前 必须 将 其 初始 化 为 地 。 

len 一 一 整 型 变量 。 输入 序列 与 输出 序列 的 长 度 ;， 在 分 块 处 理 时 ， 它 用 于 表示 块 的 长 












































局 








度 。 

px 一双 精 度 实 型 一 维 数 组 ， 长 度 为 (m 十 1)。 在 分 块 处 理 时 , 它 用 于 保存 前 一 块 滤 
波 时 的 (ma 十 1) 个 输入 序列 值 。 

py - 双 精 度 实 型 一 维 数组 ,长 度 为 Cn 十 1) 。 在 分 块 处 理 时 , 它 用 于 保存 前 一 块 滤波 
时 的 n 个 输出 序列 值 。 

当 输 入 序列 x(k) 很 长 时 ,由 于 计算 机 内 存 的 限制 , 常 将 其 分 成 彼此 衔接 的 若 于 块 进 
行 处 理 。 数 组 px 与 py 就 是 专 为 分 块 处 理 而 设置 的 。px 用 于 保存 前 一 块 滤波 时 的 (m 十 
1 个 输入 序列 值 , 即 px[]= (xz(tk)，xGk 一 1)，…，xk 一 mm)}3py 用 于 保存 前 一 块 滤波 时 
的 nm 个 输出 序列 值 , 即 py 口 一 1 全 一 D，yGk 一 2)，…， yy 一 n)}。 通 常 ,我 们 假定 滤波 器 
的 初始 条 件 为 专 , 因 此 ,数组 px[] 与 py[ 在 滤波 前 都 要 初始 化 为 零 。 


四 、 子 函数 程序 (文件 名 : filtery.c) 


间 inciude "malh. hy” 


void filterygb ,amnyxyysienypxoby) 














int mynelen' 
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double a[,b[] ,xD 中 ,7E,pxL,py 站 ， 
fint 下 ,1 
double sum; 
for (kk 一 0;k<lenik 十 十 ) 
{ px[0] 一 x[kJ， 
SU 一 站. 曲 ; 
fer《i 一 05i< 志 一 mii 十 十 ) 
{ sum 一 surm 十 bf]xepxbilr 
for fi 一 1 过 二 hi 十 十 ) 
fsum 一 sum 一 at]xpy[ij 
让 《fabskx[k] > 1.0elL0 ) 
{ printfkC"This is an unstable filter 上 An ); 
XitK0D# 
} 
fer 人 一 mi 一 1 下 一 一 ) 
{f pxi 一 px[i 一 菇 ; ) 
for 《ii 一 ng 一 2 一 一 ) 
{ py[i 计 一 py[Di 一 1J; } 
py[1] = sums 
y[ 革 ] 一 y[k] 十 sumi 


五 . 例 题 


4 阶 切 比 雪夫 低 通 数字 滤波 器 的 传递 函数 为 


末 (z) 二 0.001836 十 0. 007344x -1 十 0.011016z-? 十 0.007344z 3 十 0.001836x 
1.0 一 3.0544z 十 3.829lz 一 2.2925g 十 站 55075z 


选取 参数 mm 一 4，n 一 4，len 一 100， 求 该 让 波 器 的 单位 冲 激 响 应 ， 并 画 出 相应 的 图 形 。 
主 函 数 程 序 (文件 名 :filtery, my) ， 
##include ”stdio, hy 


并 ineiude "filtery。ey 




















Inainf 》 
{ int iytnynylen; 
double BE5] 一 (0.001836，0. 007344，0.011016，0, 007344，0. 00183613 
double aL5] 一 { 人 .0， 一 3.0544，3, 8291 ， 一 2. 2925，0. 550751}# 
double pxL5] 王 10. ,0. ,0. 0. 0. 3 
doubje pyfL5J]j- 一 10. ,0. ,0. ,0. 0. ) ; 
double x[100],7L100]; 
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FILE * 所 ; 
mm 一 4; 
一 4; 
len 一 100; 
for (一 05i< lenii 十 十 ) 
{ xD 一 0.0i 
y[i 一 0.0; 
} 
xf0] 一 了]. 昌 
filteryghbyaymsnyxyyleny pxypy7i; 
printf("TUTnit Isnpulse Responsen” 7 3 
for 4 一 0Ogi< 16ii 十 十 >》 
{ printf(” 赂 10. 7lfr yi) 
让 【1 凤 4 一 一 3 ) Printtgw sa 
} 
让 【(fip =fopenkzfiltery.qat yw 一 一 NULL ) 
{ Printtfeannot Open file 和 ltery.dat? 1 An 7 
exitfO7 ; 
} 
for 6 一 0OTi<1005i 十 十 ) 
{ fprfintitp 败 中 Was isyLi] 3 ， 
fceloseftpyi 
4 
运行 结果 : 
单位 冲 激 响应 (前 16 点 ?为 
0.25 
.20 
口 .15 
,1D0 
.05 
要 0.00 
-0.05 
-0.10 


-0.15 
20 斗 侣 6 8 100 
样本 序号 


钢 2 一 4 一 5 数字 油 波 器 的 单位 证 激 响 应 
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0. 0018360 9. 012951 儿 0. 0435460 .0949658 


0. 1538388 吕 , 1989473 0. 2123269 0. 871151 
0. 1298634 0, 0573615 一 0.0100326 一 0.0556283 
一 四 90715163 一 0.0600246 一 站 0314986 0 0003172 


单位 冲 激 响应 如 图 2 一 4 一 5 所 示 。 
3$4.6 级 联 型 IIR 数字 滤波 


一 、 功 能 

用 级 联 型 IIR 数字 滤波 器 进行 数字 滤波 。 
二 、 方 法 简介 

级 联 型 IIR 数字 滤波 器 的 传递 函数 为 


民 
鼠 (z) = [Ce) 
于 1 


三 区 六 0) 十 5 1)z- 十 …… 十 DDND)z 
1 十 az 十 和 十 as 





其 中 六 阶 节 五 ,(z) 为 
瑟 Kz) 一 z(7;0)》 十 2Cj1)z 十 十 Ba 
? 1 十 gf1 ti)z 1 十 … 十 Ga7D)z 
这 里 af 产 思 和 囊 (一 1 ;一 0,1，…N) 分 别 是 数字 滤波 器 分 母 多 项 式 和 分 
子 多 项 式 的 系数 。 
当 给 定数 字 滤 波 器 系数 e(7 切 与 510 间 后 , 即 可 用 上 式 对 输入 序列 <(E) 进 行 数字 滤 
波 , 从 而 得 到 沥 波 固 的 输出 ?() 


三 、 使 用 说 明 
1， 子 函数 语句 


void filtercCb ,avnyns,x*jenypxy*py) 

2， 形 参 说 明 . 

b 一 一 双 精 度 实 型 二 维 数组 ， 体 积 为 asXcn 十 1)。 存 放 滤 波 器 分 子 多 项 式 的 系数 局 
DJUJ 表示 第 j 个 m 阶 节 的 分 子 多 项 式 的 第 1 个 系数 。 

a 双 精 度 实 型 二 维 数组 ,体积 为 ne Xin 十 1)。 存 放 滤 波 器 分 母 多 项 式 的 系数 。a 
DJ 表示 第 ;个 mn 阶 节 的 分 母 多 项 式 的 第 i 个 系数 。 
整 型 变量 。 滤 流 器 每 节 的 阶 数 。 
整 型 变量 ,滤波 器 的 n 阶 节 数 : 工 。 











也 





Das 
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x 一 一 双 精 度 实 型 ` 维 数组 , 长 度 为 len。 开 始 时 存放 滤波 器 的 输入 序列 ， 最 后 存放 
滤波 器 的 输出 序列 ， 在 分 哄 处 理 时 ， 它 用 于 袁 示 当前 块 内 的 站 波 器 的 输入 序列 与 输出 序 
列 ， 

len -一 整 型 变量 。 输 入 序列 与 和 输出 序列 的 长 度 : 在 分 块 处 理 时 ， 它 用 于 表示 块 的 长 




















度 

Px 一 一 双 精 度 实 型 一 维 数组 ,体积 为 nsx tn 十 1。 在 分 赵 处 理 时 , 它 用 于 保存 前 一 
块 滤波 时 的 人 na 十 1) 个 输入 序 世 值 ， 

py -一 双 精 度 实 型 二 维 数组 ,体积 为 nsX (tn 十 1)。 在 分 庚 尔 理 时 , 它 用 于 保存 前 一 
块 滤波 时 的 n 个 输 出 序列 值 ， 

当 输 入 序列 xfk) 很 长 时 ,由 于 计算 机 内 存 的 限制 , 常 将 其 分 成 彼此 衔接 的 若干 块 进 
行 处 理 , 数组 px 与 py 就 是 专 为 分 块 处 理 而 设 蔷 的 。 px 用 于 保存 前 一 块 滤波 时 的 Ca 十 1 
个 输入 序列 值 , 既 pxOj]FE 人 人 kk) ,xf 一 1 ork 一 opy 用 于 保存 前 一 块 滤波 时 的 
na 个 输出 序列 值 , 即 py[j [ ]:={yGk 一 1D) ,7Gk 有 ,my 全 一 n))。 通 常 , 我 们 假定 滤波 器 
的 初始 条 件 为 零 . 因 此 数组 px[ 症 ] 与 py[ ] ] 在 滤波 前 都 要 初始 化 为 零 。 有 关 分 块 处 理 
的 具体 方法 见 后 面 的 例题 ， 


四 、 子 函数 程序 (文件 名 : filterc,c) 


并 inciuqde "math, hyw 






































Yoid filtetctbaysnnsy xylenypxypy) 
ipt nynsyleni 
doubie a[j ,bt]j,x[D],px[L],pyL]; 
initijekonli 
nl 一 mn 十 1i 
for 人 一 Ons 刘 十 十 ) 
{ for (KK 一 0Ik<lenik 十 十 ) 
{ pxLjx nt 十 0] 一 xLk]i 
x[E] 一 bDjxrnl+o * pxDxnl 二 oj]i 
for 和 一 1 一 nii 十 十 ) 
{ 夺 ] 十 一 bUsnl 十 这 #Ppx[sxent 十 训 一 aDjxnl 十 让 pyDx<al 十 门 ; 
计 《 iabs(x[EK] ) > 1.0e10 
{ PrintfeThis js an unstable filter 1 An yi 
exXitCO) 
} 
for 如一 ni 一 2 一 一 ) 
{ pxLDjx nl 十 襄 := pxDxrnl 十 i 一 1]; 
pyDUj* nl 十 谨 关 py_jxnl- 二 ii 一 1]; 
px[j*xnl 十 1] 一 pxDxnl 十 0] 
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py[Lj xnl 十 1] 一 XLk]; 
} 





} 
五 . 例 题 
4 阶 切 比 雪夫 低 通 数字 滤波 轿 的 传递 郴 数 为 
妃 (z) 一 0.001836(1 十 gz 





(1 一 1.4996z :十 0.8482z 【1 一 1.5548z :十 曲 6493 


它 由 两 个 2 阶 节 级 联 而 成 ,选取 参数 n 一 2,， ns 一 2, 共 分 4 块 进行 处 理 , 每 块 长 度 len 一 25 


。 求 该 油 波 右 的 单位 冲 激 响 应 ， 并 画 出 林 应 的 图 形 
主 函 数 程 序 ( 文 件 名 :filterc. my) ， 


并 inceluqde ”stdic. hy7 





妖 inelude 7filtercyey 

tnaint 7》 

fint iyjnmynsylenynblk 
double b[2][3]= 1(10.001836，0,.003672，0. 001836}]， 人 1.0，2.0，1.0)}; 
double a[2][34j 一 1 人.0， 一 1.4996，0. 84821，11.0， 一 1.5548，0. 64933}3 
double Px[L21L3],py[L21L3]， 
double x[25],dqataf100] 
ERILE * 名 ; 


HL 一 25 


for ii 一 Ti<tenii 十 十 ) 
{ Xi 一 0.0; )} 
foer 企 一 和 ii<ns 呈 十 十 》 
flor 一 0 和 < 所 一 hn 十 十 ) 
{ PK 一 0.0; 
py[i][] 一 0.0; 
for 总 一 0;j<nblkij 十 十 ) 
{ filterefbsaynynsxylenypxvpy)i 
for 《ki 一 0Oii<ciensi 十 十 ) 
{ data[j * len 十 i] 一 xi]; 
xD 一 0.03 


183 





} 
printffrUmit Impuise Resbponsesn2 )， 
for fi 一 0ii<<165 十 十 ) 
{ printfg” 闻 10. 7 ,dataLi]); 
主人 1 的 4 一 一 3 printf sn) 
于 《【 fp 一 fopencefilterc. daty ww 一 一 NULL ) 
{ Printt("eannot Dpen fje 和 iterc dat 1 An >》， 
Xit(DD)# 
} 
fcr G 一 05i<<100ii 十 十 》 
1 fprintfip 皮 2 狼 aviydatali])i 
feeleseffpy; 
} 
运行 结果 ， 
单位 冲 激 响应 (前 16 点 ) 为 
0. 0018360 站 , D129519 站. 总 435 和 6 吕 0949662 
.1538403 台 . 1989518 0 2123368 0 1871326 
总 ,了 29880S 避 . 0573960 一 所 ,099931 一 .00565588 
一 息 , 下 了 1 生 员 25 一 0.06000143 一 站 .站 314873 0. DO0D316 名 
单位 冲 激 响 应 如 图 2 一 4 一 6 所 示 。 
癌 .25 
0.29 
D.15 
虽 .10 
.05 
这 总 .0 
一 总 .但 
-0.10 


-0.15 
20 4 60 80 100 


样本 序号 
图 2 一 4 一 6 级 联 弄 数字 滤波 器 的 单位 冲 激 响 应 
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8 4.7 并 联 型 IIR 数字 滤波 


一 、 功 能 

用 并 联 型 TIR 数字 滤波 髓 进行 数字 滤波 。 

二 、 方 法 简介 

并 联 型 TIR 数字 滤波 器 的 传递 函数 为 
五 (z) 一 ae) 


四 80) 十 ,17z 十 … 十 5C1NDz 
全 1] 十 az 十 十 aCjw)z 
其 中 六 阶 节 已 jz) 为 
下 人 一 220) 十 60Dz 十 …… 十 Ba 
! 1 十 El)z 十 十 az 
这 里 zt 站 和 术 记 站 人 一 1,.2, 一 0,1, ,NM) 分 别 是 数字 滤波 器 分 母 多 项 式 和 分 
子 多 项 式 的 系数 ， 
当 给 定数 字 滤 波 器 系数 e(7, 门 与 5 后 , 即 可 用 上 式 对 输入 序列 z( 放 进行 数字 滤 
波 , 从 而 得 到 沽 波 器 的 输出 y(R) 


莹 、 使 用 说 明 
1， 子 函数 语句 


Yold filterpkb ya 和 mnsrxyyylenypxypy7 

2， 形 参 说 明 

b ~ 一 双 精 度 实 型 二 维 数组 ,体积 为 ns x (n 十 1)。 存 放 谈 波 器 分 子 多 项 式 的 系数 ， 
bbj]bij 才 示 第 j 个 n 阶 节 的 分 子 多 项 式 的 第 i 个 系数 。 

a 一 一 双 精 度 实 型 二 维 数组 ,体积 为 ns x Cn 十 1)。 存 放 泪 波 器 分 母 多 项 式 的 系数 ， 
a[jj[ 世 表示 第 j 个 阶 节 的 分 母 多 项 式 的 第 i 个 系数 。 
整 型 变量 。 滤 波 器 每 节 的 阶 数 。 
整 型 变量 。 泪 波 器 的 mn 阶 节 数 工 。 

x 一 一 双 精 度 实 型 一 维 数组 ,长 度 为 len。 存 放 让 波 器 的 输入 序列 ;在 分 块 处 理 时 , 它 
用 子 玫 示 当 前 块 内 的 天波 器 的 输入 序列 。 
y 双 精 度 实 型 一 维 数组 ,长 度 为 lan。 存 放 滤 波 器 的 输出 序列 ;在 分 据 处 理 时 , 它 
用 于 表示 当前 块 内 的 滤 滤 器 的 输出 序列 。 
整 型 变量 。 输入 序列 与 输出 序列 的 长 度 ; 在 分 块 处理 时 , 它 用 子 表 示 块 的 长 








也 





卫 呈 














len 


度 . 
px 一 一 双 精 度 实 型 二 维 数组 ,体积 为 neX 人 a 十 1) 。 在 分 块 处 理 时 , 它 用 于 保存 前 一 
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块 滤波 时 的 (n 十 1) 个 输入 序列 值 。 

py 一 -- 双 精度 实 型 二 维 数组 ,体积 为 nsXin 一 1)7。 在 分 块 处 理 时 , 它 用 于 保 存 前 一 
块 波 时 的 mn 个 输出 序列 值 。 
当 输 入 序列 x(k) 很 长 时 ,由 于 计算 机 内 站 的 限制 , 常 将 其 分 或 彼此 衔接 的 苦于 块 进 
行 处 理 . 数组 bx 与 py 就 是 专 为 分 块 处 理 而 设 曾 的 .px 用 于 保存 前 一 块 汗 波 时 的 人 十 1) 
个 输入 序列 值 , 即 px[i][ 一 fxtk)，xftE 一 1)，…xCk 一 npy 用 于 保存 前 一 块 鱼 波 时 
的 na 个 输出 序列 值 , 即 Py[DI ] 一 17Gk- 一 iDyCE 一 2 7 一 n)}。 通 常 , 我 们 假定 滤波 


扣 的 初始 条 停 为 零 , 因 此 数组 px[ 并 ] 与 py[ ][ ] 在 让 波 前 都 要 初始 化 为 零 。 有 关 分 顽 处 
理 的 具 眉 方法 见 后 面 的 例题 。 


四 、 子 函数 程序 (文件 名 : filterp.ec) 


其 inelude ”matt. hy 











void filterpfb anynsy*Xyyylenypxypy) 
int nynsylen; 
double abLj ,xy[J,pxLj,pyi2i 
{ int ijyknl3 
double sum; 
nl 一 飞 十 13 
foer (KE 二 0 处 <]lenik 十 十 ) 
1yLgk] 一 0.05 
far 与 一 0Hj<nsij 十 十 ) 
{ fter (一 OK<lens 攻 十 十 ) 
( px[jxnl 十 0] 一 x[k]; 
sum 一 bjxnli 十 0] # pxLjxnl 十 0]; 
foer 6 一 1 一 nii 直 十) 
fsum 一 一 bLj*nl 十 训 *pxLjsx nl 十 训 一 aLjsmnl 十 <PpyLjsxni 十 让 1 
这 〔〈 fabs(surmy > 1.0e1l0 ) 
{ PrintfCrhis is an unstable Tilter | An Di 
exitfKOy ; 
} 
for 扯 一 亲 一 2 】 
{ px[jxnli 十 癌 一 bx[jsxnl 十 i 一 1]; 
ByDj* nl 十 可 一 PyHjxnl 一 :一 1; 
px[j xml 十 1] 天 px[Dsenl 十 0 
Py[j snl 十 1 一 sumy 
y[k] 一 yfk] 十 surms 
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》 
五 ` 例 题 


4 阶 切 比 雪夫 低 通 数字 滤波 器 的 传递 函数 为 
下 (e) 一 0.08327 十 0.0239x-: 0.08327 十 0. 0246z-1 








1 一 1.5658z 1 十 0.6549z 2? 1 一 1.4934z -1 十 0.8392z 
它 几 两 个 2 阶 节 并 联 而 成 。 选 取 参 数 n 一 2， ns 一 2， 共 分 4 块 进行 处 理 ， 每 块 长 度 len 一 
25。 求 该 滤波 器 的 单位 冲 激 响应， 并 天 出 相 谋 的 图 形 。 


主 函 数 程序 (文件 名 :filterb, m) : 
芽 inelude ”stdio. hy 
共 include "人 lterp。 cy 
main() 
{ int j,j,nyasylenynblk; 
double bft2 放 L3J 一 40.08327，0. 





0239，0.0)，{ 一 D 08327， 一 0 0246，0. 0 


double a[2][3] 一 111.0， 一 1.5658，0. 6549} ，{1.0， 一 1.4934，0. 83921 1 


double px[2jL3],py[2][3]; 
double x[25] ,yl25],data[100]; 
FILE # 抱 ; 
nm 一 2 
ns 一 2; 
len 一 251 
nbik 一 4; 
xL0] 一 1.03 
for《i 一 li<len3i 十 十 ) 
{ xD 一 0.03 
for (Ci 一 Ori<cnsii 十 十 ) 
fer (一 0 所 一 n5 十 十 ) 
{ PK[LiD] 一 0 0 
Py[iD] 一 0.0; 
for 人 一 0 和 <nblg5 十 十 ) 


{f filterp(byaynyns, xyylen,pxy py 


for《i 一 0yi<tenjii 十 十 ) 
{ data[jxlen 十 让 一 Y[ 癌 
xX[Lij 一 0.0， 
} 
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brinttCELJnit Impulse Resbonsewn” 3 
ior (人 一 Di<1651 二 十 ) 
1 Ptintfty 9%010.7H7 qdatali]); 
主 〈《i 凤 4 一 一 3 ) printff" ny 7 
} ， 
这 《了 扣 三 fopentrfilterp, dat yw 一 一 MULL ) 


4 printt("cannhot Open 半 ile "filterp.dat? 1 An 7) 


eXitf0y 
} 
for《〈i 一 0O5i<1003i 十 十 》 
《 fprintfKfp ”所 2d osn ,isdataLi])y 
fcloseftpy; 
} 
运行 结果 : 
单位 冲 激 响 应 (前 16 点 ?为 
0.0000000 吕 . 0053287 人 0344748 0. 08839894 
晶 , 1923266 2010379 站 .2 62496 有 0.1913117 
避 , 1 335624 060564D0 一 0.D069497 一 下 .0523318 
一 0 0682015 一 入 ,057105 总 一 昌 , 0295577 0. 0008975 
单位 剖 激 响应 如 图 2 一 4 一 ? 所 示 。 
站 .25 
吕 .20 
旺 .15 
站 .10 
口 .05 
蜂 0.00 _ 
-OUS 
一 D.10 
一 口 .15 


2 40 吝 广 80 100 
样本 序号 


图 2 一 4 一 7 并联 型 数字 泪 波 器 的 单位 冲 激 响 应 
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第 五 章 IIR 数字 滤波 般 的 设计 
8 5.1 巴特 沃 兹 和 切 比 雪 夫 数字 淡 波 器 的 设计 


一 、 功 能 


根据 模拟 忠 波 器 理论 , 用 双 线 性 变换 法 设计 低 通 、 高 通 、 带 通 和 带 阻 的 巴特 沃克 、 切 
比 雪夫 和 逆 切 比 雪夫 TIR 数字 滤波 器 。 


二 、 方 法 简介 


二 
， 归 一 化 模 报 低 通 滤波 强 的 设计 


5 巴特 沃 兹 滤波 器 
归 一 化 工人 工 为 偶数 ) 阶 忆 符 并 人 和 的 作 和 为 





ao=- 冲 En 1 


4 一 25 08 于 
《2)， 切 比 雪夫 滤 让 器 
归 一 化 工 代 为 偶数 ) 阶 切 比 雪夫 模拟 低 通 滤波 器 的 传递 函数 为 


3159 

















GD 一 4 全 一 5 一 8 一 5 
其 中 系数 4 为 
二 工 
.十 记 
百 6) 的 极点 2 为 
5 一 十 了 册 ， 呈 一 ] ,2 了 
式 中 
Bi 一 癌 (: 一 四 sin 2 | 
】 2 一 工 
P. 一 六 G 二 Deoa| 地 = 
_ 1 二 ws 
[ 


(3)， 道 切 比 雪夫 滤波 器 
与 一 化 工 代 为 偶数 ) 阶 遵 切 比 雪 去 模拟 低 通 滤波 回 的 传递 冰 数 为 丈 TBZ] 
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lggeeeSLgS 一 有 (3 一 三 
王 G) 一 下 taeetrts 一 St 人 5 一 Sef3 一 3 


其 中 瑟 () 的 零 名 志和 极点 吧 为 





四 人 
7 cos[C28 二 1702Z] 
3 一 本 十 7 哟 一 1 2 也 














ae 
本 
0- 天 全 
必 一 去 oO-' 一 7 sin| 全 天 
记 == 冯 G: 十 力 cos 2:x| 





y 一 [1 十 Y 开 二 


在 上 面 浅 式 中 ， 入 是 阻 带 的 边界 频率 ,4 是 与 阻 带 衰减 相关 的 参数 。 在 有 一 马 处 ， 滤 波 
器 的 幅度 增益 为 1 人 。 


显而易见 ， 把 共 驾 极点 进行 组 合 后 ， 巴 特 沃克 、 切 比 雪夫 和 道 切 比 雪夫 滤波 器 都 可 
写成 子 个 2 阶 节 级 联 的 形式 。 
2. 模拟 涉 波 器 的 频率 变换 





低 通 到 高 通 的 变换 : 
] 
34 一 
号 
低 通 到 带 通 的 变换 ， 
世 十 绒 
” 本 
低 通 到 带 阻 的 变换 ， 
1 
[aa 人 
引 十 2 
人 
其 中 
人 一 人 一 人 
人 一 Ar 





这 里 9. 和 Oo 分 别 是 带 通 或 带 阻 庆 波 器 的 通 带 下 边界 频率 和 通 带 上 边界 频 率 。 
3 模拟 滤波 器 到 数字 滤波 器 的 变换 
(1)》 计算 预 畴 变 后 的 模拟 泪 波 髓 的 通 带 边 界 频率 





电 一 tan| 人 | 一 tanCr 扩 /六 ) 
《2) 模拟 证 波 品 的 频率 轴 尺 度 变 换 : 
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下 (9) = 如 
《3) 用 双 线 性 灾 换 法 ,将 模拟 证 波 器 五 (5) 变 换 为 数字 滤波 器 玖 (ze) 
到 ke 一 五 (Cs) | espDra Hz 一 





三 ,使 用 说 明 


1. 子 函数 语句 
void iirbefCifilt bandnssny fft2f3 4 dbb,sy 

2， 形 参 说 明 

ifil 一 一 整 型 变量 . 让 波 器 的 类 型 . 取 值 为 1.2 和 3, 分 别 对 应 切 比 雪 夫 、 道 切 比 雪 类 
和 巴特 沃 兹 滤波 器 。 

band 一 一 整 型 变量 . 滤波 器 的 通 带 形式 。 取 值 为 1.2.3 和 4, 分 别 对 应 低 通 ,高 道 , 带 
通 和 带 阻 滤波 器 。 

ns 一 一 整 型 变量 。 滤 波 器 的 n 阶 节 数 。 

na 一 一 整 型 变量 .。 滤波 器 每 节 的 阶 数 。 对 于 低 通 和 高 通 滤波 器 , n 一 2; 对 于 带 通 和 带 
阻 滤波 器 ，n= 4。 

纪 双 精 度 实 型 变量 。 

f2 一 一 双 精 度 实 型 变量 。 

和 一 一 双 精 度 实 型 变量 . 

fi 一 一 双 精 度 实 型 变量 。 

对 于 巴特 医 兹 滤波 器 ， 低 通 时 ，fl 是 通 带 边界 频率 ， 亿 = 扫 一 f4=0; 高 通 时 ， 弛 2 是 
道 带 边界 频率 , 纪 一 13= 由 一 0; 带 通 时 , f2 是 通 带 下 边界 频率 , 13 是 通 带 上 边界 频率 , 旨 
二 考 一 0 带 阻 时 ， fl 是 通 带 下 边界 频率 ，ft 是 通 带 上 边 错 频率 ，f2 一 和 3 一 0。 

对 于 切 比 雪夫 让 波 器 , 低 通 时 , 下 是 通 带 边 界 频 率 , f2 是 阻 带 边 界 频率 , f3= 人 4 一 0; 
高 通 时 , 绽 是 通 带 边界 频率 ,fl 是 阻 带 边界 频率 ，f3 一 如 一 0; 带 双 时 ,，f2 是 通 带 下 边界 
频率 ，f3 是 通 带 上 边界 频率 ,fl 是 阻 带 下 边界 频率 ,ft 是 阻 带 上 边界 频率 : 带 胃 时 ，fl 
是 和 通 带 下 边界 频率 , 14 是 通 带 上 边界 频率 , f2 是 阻 带 下 边界 频率 , f3 是 阻 带 上 边界 频率 。 

db 一 一 双 精 度 实 型 变量 。 汪 波 器 的 阻 带 衰减 (用 dB 表示 ) 。 . 

b 一 一 双 精 度 实 型 二 维 数 组 ， 体 积 为 nsx (n 十 1》。 存 放 滤 波 器 分 子 客 项 式 的 系数 。 
bDi]D 表 示 第 j 信 nm 阶 节 的 分 子 多 项 式 的 第 i 个 系数 。 

双 精 度 实 型 二 维 数组 ， 体 积 为 ns X 人 n 十 1)。 存 放 证 波峰 分 母 多 项 式 的 系数 。 
a[j[ 表 示 第 1 个 na 阶 节 的 分 母 多 项 式 的 第 i 个 系数 。 ， 


四 、 子 国 数 程序 (文件 名 :iirbcf. ce) 


芽 include ”mmatbh ,hy 

void iirbceffifilt ,bandnssny, 红 ,ff3,f4db,bya) 
double b[],a[] ,ft2f3 fdb; 

int ifilt ,bandynsyn' 








了 
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{f int 攻 ， 
double omegaylamda,epstona, 旨 ,ibh， 
double df5],e[L5]， 
void echebyiCy yehebyiigy bwttg7s 
double ecosh1(y warpf7yvbpsubf7yominftys 
void fbltc3y 
主 【 (band 一 一 1) || 5Cpand 一 一 入 入 一直 ; 
让 《 《band 一 一 2 1 fband 一 一 3 ) 引 一生; 
这 《band 所 一 37 人 hh 一 f33 
许 (band 一 一 4) 人 一 人; 
i(《ifit < 37 
{f Switch f band ) 
fcase 1: 
Case 2: 
{ omega 一 Watp(fi27yAwarp(Kftl7s 
btreak 
} 
Case 3: 
{ ermega 一 DOmintbpstabfkwatrpffl) yih fiyybpsubfwarpft7th * 昌 ) 
breaki 
Case 村 
{ omega 一 ominf1.0AbpsubCwarp(f2) 人, 有) OAbpsabfwarp037， th ,也 7) 
larnda 一 powf10.0, fdby720.0)773 
epslon 一 lamdaycoshf2 # ns *x Coshlkormegayy 
} 
fer (KK 一 OKE<nsik 十 十 》 
{ Switch〔 iilt ) 
{ ease 1 
{ chebyi(2 xmsy 区 depsienydec)， 
break ， 
} 
case 2， 
(chebyiig2 x nsy 攻 ,4omegaylarmda dc 
break; 
} 
CaSe 忆 : 
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租 友 Jr9 


{ bwtf(2xns 攻 4doc7i 
bzreaks 


} 
外 ltdyesnyband 人 和 ,wb[E* tn 十 1 十 0 加 Raftkx tn 十 1 十 D]) 


static double coshl(x) 

double x; 

double zx; 
2 一 log(X 二 SQttKX 关 和 一 个》 7 
returnftz]; 


} 


static double warp 人) 

弹 ouble f 

1 doable piyz; 
Pi 一 由 0Oxratang1.0)， 
z 一 tanfpis 们 ， 
retUrntZ) 


static double bpsubfom ,出 :fl) 

doubjle om ,fh ,有 ; 

{ dountble z; 
一 〔《om xs omm 一 冶 af 兽 ar 的 (和 CCwarpfthy 一 冯 arD5 和 7 症 Onay# 
TetDITmKZ2 7 


} 


static double omintoml1:om2) 
double oml ,om2y 
{ doubie zz1，z2# 

z1L 一 fabsfkom1)# 

z2 一 fabsform2)# 

2 一 (2z< 们 22) 9?z :2 


TetUYTDT《 ZE》 
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static vo 记 bwrttflnsknydye) 
int In :Kay 
double qdLe[ 


{ int ii 


qouble bivtmp; 
Bi 一 4.0xatang1. 站 ) 


dLO] 一 1.03 
ctL0] 一 1,0; 
forf 一 1 和 < 一 ni 十 十 》 
fd0] = 0.0; 
ecL] 一 0.0; 
4 
tmp 一 《人 k 十 1 一 (im 十 1.0772.0; 
让 《tmp 一 一 0. 0) 
feel 一 105) 
else 
(e[Ll] = 一 2.0xreos((2x (长 十 1 十 im 一 1])x# pif2xln)y) 
cL21 一 1,0i 


二 一 


statice void chebyiflnk:nsepydqyc) 
double dlL yceLlepi 


int ln kmni 


it 


19 和 4 


double biygam yyGtnega ,sigtna 
Pi 一 4.07ratan(1.0)5 
gatm 一 Powffftl.0 十 sqrtt1.0 十 ep 关 ep)y)Aep)y， 1.D7ln)i 
sigma 一 05< 人 .0Agam 一 gatmy#asinf(2#(k 十 1) 一 1 关 PiA2xln))s 
Drmega 一 0.5x#fl,0rgam 十 gam)xcosCt2x (上 十 1 一 1 xpIAC2xln)) 3 
for 4 一 0ji 二 一 ni 十 十 ) 

{ 4 一 0.0) 

ec 订 一 0.0; 

} 
让 《《(n 的 2 肋 一 一 1 本 《全 十 1) 一 一 《la 十 1A2) ) 

fdLO] 一 一 sigmali 


c[o] = do]; 





fL1 一 10 
} 


所 1S 


{v[0] 一 sigma x Sigma 十 bmegaxomegas 


cl 一 一 2.0#sigtna; 
c[2] 一 1.0i 
dLo] 一 cfoJ] 


证 《Kan 折 扫 一 一 0 区 让 全 一 二 0) 
alL0] 一 dLo]AsqrtCl.DOT+ep 关 ep); 


} 


static void chebyiiflny Enywsyattydycy) 

doublte dL] ,ci ,wsyatti 

int ]n En; 

{ int is 
double Piygam alpha ,betaysigraayomegaysclnysclds 
Bi 一 4. 和 0xatanf1.0)3 
gam 一 bowffCatt 十 sqrt(atts att 一 1.0)79 1 On 
atpha 一 9. 5 xx (1. 0/gam 一 gatmn) 关 SinKC(2 关 《EL)》 “ 工 ) Pi re ]a735 
beta 一 人 5x (1.0Agam 十 gatm)xcosfKt2x (十 1 一 1) 关 PACS2 关 inyy 
sigtna 一 wWsXalphaAfalphba alpha 十 beta # betayi 


omega 一 一 1.0x wsxhbetaA(alpha * alpha 十 beta #beta)s 
for 0 一 0ii< 一 ni 十 十 》 
{ df 一 .0; 
cL 一 00 
} 。 
让 《fn 上 2 一 一 1 区 《 人 十 1 一 一 (ln 十 1)72)》 ) 
{ dlLo] 三 一 1.0#Ssigmas 
cLo] 一 dL9j; 
ef 一 10; 
} 
else 


{ seln 一 Sigma xsiggma 十 Omega 关 Omega 

seld 一 .pow(Cws/cos(f2x ( 作 十 1 一 1 # piAf2 关 la))) 2)5 
dLOo] 一 seln xscldi 
qdL2] 一 scin; 
cLo] 一 d[L03; 
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c[L1] 一 一 2.0xsigma+xscldi 
cl2] 一 secids 


并 imnelude ”stgdlib. hy 
static void fbltkdcynyband ,flnfnnybyay) 
int nyband 
doubie finfhny,dqLj,er 站 ,bf 站 ait; 
{ int imynlyn2 ls 
double biywywoywl,mw2tmpytmpdtmpcy，x waorE; 
double cormhbinky; 
void bilinear(D) 
Pi 一 业 . 曲 #atamg1. 昌 ) 
古 1 一 tankpistftlnyy 
fozr 和 一 工科 六 一 有 和 一 一 ) 
{ 这 《ef =000 td 一 站 0) 


break 
m 一 jy 
swritch《〈《 band ) 
{ ease 1: 
Case 21 
{n2 一 mi 
nl 一 n2 十 1; 
让 《band 一 一 2) 
{ for 和 一 Di 一 tmA2ii 十 十 ) 
ftrmp 一 di; 
db = dtm 一 自 ; 
dtm 一 i 一 tmp: 
tmp 一 ci 
elil 一 cm 一 1 
c[m 一 这 一 ttmp; 
} 


forf (ii 一 00<c 一 对 ji 十 十 ) 
{ di] = 一 qd[ 训 /powfkwrl is 
cO] = 一 ecLi7powCmwl ii 
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} 
break 
Case 3: 
Case 4: 
{ 2 一 TDi; 


nl 一 mhmz 十 1: 


wotrk 一 mmalloc(n1 kx nl1# sizecft(double)7s 


WwW2 一 tangpi+fthnys 
月 一 有 2 一 证 1 
WO 二 再 关 厅 2 
让 《band 一 一 4》 
{ for (一 DOiitc 一 mA25i 十 十 ) 
{tmp 一 dj; 
di 一 dm 一 这; 
dLm 一 ij 一 tmp:; 
tmp 一 :eLii 
ef] = c[m 一 局 ; 


cm 一 订 一 tmp 


】 
for (i 一 DO3i< 一 n21 十 十 ) 

{ workLO*nl 十 本 一 0.03 
workL1 xn1 十 襄 一 0.0; 

} 

for {i 一 0jic 一 mii 十 十 》 

{tmpbd = dlijxrpowfgwy mn 一 i)5 
tmpe 一 CL]jx powgCwy mn 一 让 ?# 
fer 企 一 0Ik< 一 1 十 十 ) 

fis 一 加 十 1 一 2 区 ; 


tmp 一 combingiiy7eormbim 人 tk 7) # ecombinG 一 上 Ji 一 K735 


work10 nl 二 ls] 十 一 tmpdxPpowtwO yx tmpy 
Work[L1 x* nl 十 ls] 十 一 tmperDpowfwa 下 )* tmpb， 


}》 
for 和 一 0ii< 一 n2ii 十 十 》 
{d[i 让 一 work[0x<nl 十 订 ; 
c[i] 一 work[1 < nl 十 和 
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} 


freegwork); 


} 


bilineartd 9 + ?也 nn) 


static double combinatilyi2) 


imt 11 123 


1 int ji 


double ss; 
号 一 |. 昌 ; 
诗 世 这 一 一 自 )》return sy 


for 和 一 证 引信 《 计 一 地 7) 一 一 ) 


fsS 关 一 1 


retufn (〔s)， 


static yoid bilinearkdsc:byayn) 


int 口 ; 
double deL ba jj; 


{【 imt ij + 也 1 
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deubfte sumyatmpyscale ,xy termps 
nl 一 nn 十 1; 
tetmp 一 InailocCnl *mnl#xsizeof(double7 7 
for 人 一 0i< 一 ni 十 十 > 
{ temp[Ljx*nl 十 全 一 1.0: } 
st 一 1 0; 
for 4 一 1 所 一 ni 一 十 ) 
1 sum 一 sumx (tdouble)tn 一 i 十 1)7Cdoubleyis 
tetnp[L0 ml 十 让 一 sumi 
foer ti 一 Jii< 一 ii 十 十 ) 
fer 与 一 1< 拓 一 nj 十 十 ) 
1 tetmpDsxnl 十 订 一 tempLOG 一 1)* nl 十 让 一 tempLjxmnl 十 i 一 1 
一 temp[Lij 一 1)7 <mnt 二 i 一 13; 》 
for 如 一 ni 一 0 ] 
{ bi 一 0. 0; 














atmp 一 品 . 0 
fer 人 一 0j< 一 站 十 十 》 
{b[i 王 bi 十 temp[Dj 关 nl 十 训 =<Qa[j， 
atmp 一 atmb 十 tempHix nl 十 让 <c 门 ; 
} 
Scale 一 attmp#; 
这 和 1 一 0) ai 一 atmps 
for(i 一 0i< 一 nii 十 十 ) 
{ bb = 一 bh6] scaley 
af[i] 一 ab]Ascalej 
8 人 0 一 1.04# 
feetemp )# 


} 
五 、 例 题 


下 面 给 出 主 函 数 程序 , 它 调 用 iirbef ce 子 孜 数 。 遂 过 人 机 对 话 方式 输入 参数 后 ， 它 可 
以 设计 巴特 活 葡 、 切 比 雪 夫 和 逆 切 比 雪 去 滤波 器 ,每 种 滤波 器 都 具有 低 通 、 高 适 、 种 道 ， 
带 阻 这 四 种 形式 。 下 面 对 输 入 参数 进行 说 明 ， 
丰 lt， 滤波 器 的 类 型 ， band, 滤波 器 的 通 带 ，ns: 症 波 器 的 n 阶 节 数 ; 把 : 采样 频率 ; 
db: 阻 带 训 减 ; fname， 幅 频 响 应 的 文件 名。 ， 
对 于 低 通 和 高 通 滤 波 器 fe: 道 带 边 界 频 率 ! 缮 : 阻 带 边 界 频 率 。 
对 于 带 遂 和 带 阻 盖 滤器 ” 引 : 道 带 下 边界 频率 ;fhc: 道 带 上 边界 频率 ;fls: 阻 带 下 边 罚 
频率 ;fbhs, 阻 带 上 边界 频率 
主 医 数 要 调用 计算 级 联 型 数字 沽 波 器 频率 响应 的 函数 gainc() ,参看 第 二 篇 8 4.2 节 。 
主 函 数 程 序 ( 文 件 和 名 :iirbeft. my)， 
#include ”stdqio, hy 
#incluqe ”iirbef. cr 
##inelude ”gainc,ey 
iaain( 7 
{ int iykKnynsvifilt,banecy 
double a[50],b[50],x[300Jj,y[300]; 
doubjle 开 , 近 ,13 人 在 ,feilsyfiheythsfreq db 
char fname[40]; 
FILE * 地 ; 
Printf(”"enter ] fofr Chbebyshev TI，2 for Chebyshev II，3 for Butterwocrthsn” ) ; 
scanfC' dr v&ifitt); 
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Printf (yanter 1 for lowpass，2 for highpass，3 for bandpass ，4 for bandstopmn” 7 
scanf (0d” band); 
贡 一 《band < 一 2)?32 :4 
brintf (enter the number of 上 lter seetionsny ) 1; 
scanf(” 096d” ens); 
Printifwenter sample frequUencee fsn” 7 
Sep 亲 计 ”efsy 
让 《这 it < 一 2) 
{ Switch《 band ) 
(1 case 荆 ; 
Case 了 
{ printffenteT passband edge frequeney th)5 
Scan 0 yefcy; 
brintf(”enter stopband edge frequencey fr Na) 
Scantf ohif efr)yy 
计 ( band 一 一 1) 


{ 了 一 ff 
f2 一 {ri 
》 
else 
《fl 一 人 
f2 一 fc; 


他 一 王 一 00; 
break'; 
} 
Case 3 
Case 和: 
{ printffCrentet the lower passband edge freqtuency flcsvn ?7# 
scanf(n ob eficy 
printfK”enter the higher passband edge 位 equency hecsn 
scanfkn 9%6]f Rfheyy 
brintf(”"enter the lower stoepband edge frequency flssny 1 
Scan 0 yRtls) 
Printf(xenter the higher stopband edge frequency fihsva"); 
Scanff 吼 1 ycfhs); 
逊 ( bandq 一 一 3》 
《了 所 一 了 is; 
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> 13 一 Thei 
{4 一 ths; 
4 
else 
! 绊 一 了 ce; 
夫 一 lss 
f3 一 fhs; 
4 一 fhc; 
} 
} 
} 


Printf (entet stopband attenuation 《dB)An"); 


scanf(” lf eadb)y 


else 
《switch《 band ) 
{ case 1; 
Case ?1 


{ printtkrehntetr Passband edge frequency fen 7) 
SCamnfg ohgf 全 fe)i 
年关 { 人 一 人 3 一 考 一 0.0; 
这 人 (band 天 一 1 ) 


! 纪 一 攻 fi 
else 
{ 得 一 fei) 
break 
Case 3; 
Case 业 : 


{ bprintfkenter the lowet passband edge frequency fcva7 ); 
Scanf(” glfr Atflc); 
printfK”enter the higher passband edqge frequency fhceNmny 7) 
Scantty” ol 人 fhc); 
红 一 过 一 人 一 姓 三 0.0 
谋 (《 band 一 一 3) 
{ 和 2 一 则 cs 
f3 一 fhc; 
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} 


ejlse 
{ 一 人 cy; 
一 雪 hec; 
} 
} 
】 
} 
fl 一 划 As 
{2 一 2Afsi 
f{3 一 13/fs， 
红 一至 /fs 


iirbcfdiiltybandvnsinyf,f2,f3Td4ydp,bya)) 
for k 企 一 0iE<nsik 十 十 》 
1 Printttr nsection 好 夏 ns ,长 十 1 
for《i 一 0iic 一 ni 十 十 ) 


(printf bL 并 站 dd = 关 10.71 ”isbLks en 十 1 十 让 ?3 


让 (ff 人 上 2 一 一 0 RE 本 人 1 一 0 )printtgrsnr7y 
} 
printfg ny 7) 
for fi 一 0 一 ni 十 十》 


上 Piintd 7 8 败 9L 吧 9 二 中 10.71 ia[kxgn 十 1 十 站) 


于 《《 各 反 2) 一 一 0) 本 本 和 1 一 多 ) printf Na 
} 
printfk An” > 
} 
printftk" nenter file name of magnitude responsesn ); 
Scanft” gs fnatmeyi 
这 (tip 一 fopenffnameywwr 一 一 NUELIL) 
{ PrintfC"eanhnot obpen file %sny ftname 1 
已 XIitT 7) 
gainckbyasnyns， xyy300.273 
for 4 一 Dii< 3005 十 十 ) 
{ freq 一 1x0.57300.0; 
fprintffftp,” 叹 圭 妈 lfsaw ,freq ,入 [ 让 7 
} 
elosexfp 7 


} 
运行 结果 : 


例 1: 巴特 活 兹 低 通 数字 滤波 器 的 设计 。 选 择 参 数 jifilt 一 3，band 


0. 2， 企 一 0, 3，fs 一 1。 运 行程 序 得 到 滤波 器 的 系数 为 


第 一 级 : 
bLojLoj 一 0 2914207 
a[0][L0] 一 1.0000000 
第 二 级 
b[Ll1jfto] 一 0.2260510 
aLi][Lo] 一 1.0000000 
第 三 级 


bft2]Lo] 一 0 1929285 - 


a[2][0] = 1,0600000 
第 四 级 

b[3][0] = 0.1787535 

a[3]fo] = 1.0000000 


b[9L1] = 0.5828415 
a[oj[L1 了 一 一 0..5213093 


bpEDI 一 004521020 
alLljE1] := 一 0. 4043723 


bL21 = 一 0.3858571 
a[2]1L1I] 一 一 六 3451210 


blL3] LI] 一 0.3575069 
alL3]L1] 一 一 0.3197639 


该 滤波 器 的 幅 频 响应 如 图 2 一 5 一 1 启示 。 
例 2?: 巴特 沃 交 高 通 数字 滤波 器 的 设计 。 选 择 参 数 刘 it 一 3，band 一 2，ns 一 4，fc 一 





0. 3,， 垃 一 0 2， 丘 三 1 。 该 滤波 器 的 幅 频 响应 如 
例 3: 巴特 沃 奖 带 通 数字 滤波 器 的 设计 。 选 择 参 数 jfilt 一 3，band 一 3，ns 








1，ns 一 4，[e 一 


bLo]L2] = 各 2914207 


a[0][2] 一 0.6869922 


b[L1JL2] 一 0.2260510 
aL1]jL2] 王 0.3085762 


b[2]t2] = 0.1929285 
a[L2][2] 一 0. 1168351 


b[L3 攻 3] 一 如 1787535 
alL3jL2] 一 00347737 





图 2 一 5 一 2 所 示 。 








4 fle 


0. 1，fhe 一 0. 2，fs 一 1。 该 滤波 器 的 幅 频 响应 如 图 2 一 5 一 3 所 示 。 
例 4: 巴特 沃 蓝 带 阻 数字 滤波 器 的 设计 。 选 择 参 数 刘 lt 一 3，band 一 4，ns 一 4， fc 一 
0. 1， 名 ce 一 0. 3,， fs 一 1 。 该 滤波 器 的 幅 频 响应 如 图 2 一 5 一 4 所 示 。 


畏 蔓 6dB) 





昌之 间 . 
归 一 化 频率 


0.5 


图 2 一 5 一 1 巴特 沃克 低 道 数 字 溃 波 器 的 幅 频 响应 
例 5: 切 比 委 去 低 通 数字 滤波 器 的 设计 。 选 择 参 帮 浊 lt 一 1，band 王 1，ns 一 2，fe 一 
0. 2， 撕 一 0. 3， 一 1，dhb 一 40。 该 滤波 器 的 幅 频 响应 如 团 2 一 5 一 5 所 示 。 
例 86; 切 比 雪夫 高 通 数字 滤波 器 的 设计 。 选 择 参 数 ifilt 王 1，band=2，ns 一 2， fc 一 
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让 .1 间 .2 口 . 
归 一 化 频率 


图 2 一 5 一 2 巴特 泛 兹 高 通 数 字 泪 设 占 的 巾 频 响应 





图 2 一 5 一 4 严 特 沃 兹 带 阻 数字 滤波 器 的 幅 频 机 永 
0.3， 在 =0.2, fs 一 1,， db 一 40。 运 行程 序 得 到 泪 波 器 的 系数 为 
第 一 级 
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b[o]fLo] 一 01795492 b[Lo]LI] = 一 一 0 3590984 bfojL2] = 0. 1795492 


afo][L0] 一 1.0000000 af[0]D] 一 0.6820193 alLojL2] 一 0.8756792 
第 二 级 ; 

b[L1]09] = 0.0703521 bL1JL] = 一 一 91407042 b[t 菇 [2 一 0 0703521 

afi][o] = 一 1.0000000 a[i 让 1 一 1.3651728 a[li]j[2] 一 06465812 


该 滤波 器 的 幅 频 响应 如 图 2 一 5 一 6 所 示 。 

鲍 7: 切 比 雪 去 带 通 数 字 滤 波 器 的 设计 。 选 择 参 数 ifilt 一 1,band 一 3, ns 一 2， flc 一 
0. 1，fhc 一 0. 2, s 一 0.05，fhs 一 0. 3, fs=1, db 一 40。 该 滤波 器 的 幅 频 响应 如 图 2 一 5 一 7 
所 示 。 

例 8: 切 比 雪夫 带 阻 数字 恋 波 器 的 设计 。 选 择 参数 进 lt 一 1，band 一 4,， ns 一 2，flc 一 
0. 1，fhe 一 0. 3， fls 一 0. 2，fhs 一 0.25，fs 一 1，db=40。 该 滤波 器 的 幅 频 响应 如 图 2 一 5 一 8 
所 示 。 








,2 


0.3 已, 生 .5 
归 一 化 示 率 


图 2 一 5 一 5 切 比 雪夫 低 通 数字 波 波 器 的 幅 频 响 写 





图 2 一 5 一 6 切 比 雪夫 高 通 数字 滤波 器 的 幅 频 响应 
例 9: 道 切 比 雪夫 低 通 数字 证 滤器 的 设计 。 选 择 参数 让 it 王 2，band 一 1，ns 一 2，fe= 
0. 2， 眶 一 0 3， 引 一 1，db 一 40。 该 涉 波 器 的 幅 频 响应 如 图 2 一 5 一 9 所 示 。 
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62 D3 ”05 05 
归 一 化 糯 率 


图 2 一 5 一 8 ， 切 比 当 去 带 阻 数字 嘎 波 器 的 橱 频 响 谋 

例 10: 道 切 比 轨 夫 吉 通 数字 滤波 器 的 度 计 。 选择 参数 ifilt 王 2，band 一 2，ns 一 2 下 一 
0. 3, 在 一 0. 2， 全 一 1，db 一 40。 该 滤波 器 的 幅 频 响应 如 图 2 一 5 一 10 所 示 。 

例 11: 道 切 比 委 夫 带 通 数字 滤波 器 的 设计 。 选 择 参 数 让 1t=2，band 一 3， ns 一 2， flc 
一 0.1，fhc 一 0.2, fls 一 0.05，fhs 一 0.3， fs 一 1, db 一 40. 运行 程序 得 到 涨 波 器 的 系数 为 
第 一 级 ， 

bfo]Lo] 王 0.2927875 。 b[Loj[i 一 一 六 3425226 hbLojL2] = 0.1803287 

bLoj[3j 一 一 0. 3425226 bfLoJE4] 一 0.2927875 








aln0i0ol 一 10000000 a[DO]Lt 一 一 1.8292883 a[0][2] 一 1.9287603 
alLDOi[31 一 -11306169 ao][4l 一 05767876 
第 二 级 ， 


b[Li]Lo 一 0.1502828 bf[1jL1 一 一 六 0496149 b[1][2] 一 一 0.1896233 
bi1L3] 一 一 0.0496149 bid 一 0 1502828 
aLljLoj = 一 1.0000000 aLlj LU 一 一 1.6171168 a[lj2] 一 1.2865002 
af]L3] 一 一 0.5508877 。，  aLi][d 一 01374025 
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该 姜 波 器 的 幅 频 响应 如 图 2 一 5 一 11 所 示 。 

例 12: 道 切 比 雪夫 带 阻 数字 滤波 器 的 设计 。 选 择 参 数 iit 一 2，band 一 4，ns 一 2， fle 
一 0.1，fhc 一 0. 3，fls 一 0.2，hs 一 0.25 fs 一 1, db 一 40。 该 滤波 器 的 幅 频 响应 如 图 2 一 5 
一 12 所 未。 





图 2 一 5 一 9 逆 切 比 等 去 低 通 数字 淡 波 器 的 幅 频 响 
应 





图 2 一 5 一 10 道 切 比 雪 去 高通 玫 字 恋 波 纪 的 幅 频 
响应 
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@.2 D.3 癌 . 和 间 .5 
好 一 化 频 弟 


图 2 一 5 一 11 逆 切 纪要 去 带 秆 数字 让 波 器 的 幅 频 
响应 





0.2 0.3 .4 0， 
归 一 化 颖 率 


图 2 一 5 一 12 道 切 比 雪夫 带 阻 数字 请 波 器 的 幅 频 
殉 应 


5.2 任意 幅度 IIR 数字 滤波 露 的 优化 设计 


用 天 .Steiglirz 方法 ,优化 设计 任 堂 幅度 TIR 数字 让 波 器 ， 


级 联 型 JIR 数字 滤波 器 的 传递 函数 为 





工 一 一 
病 1 十 2tz 1 十 站 2 
ts) 一 1 十 elg 开 直 二 





式 中 上 是 增益 因子 ,as 户 :c 和 心 是 数字 滤波 器 的 系数 。 


假设 要 求 的 栖 频 响应 为 五 。(x,) ,那么 滤波 器 设计 的 准则 就 是 在 一 组 离散 频率 点 
- 局 一 efzry ， i 一 1 2 
上 ， 使 频 球 均 方 误 差 吾 最 小 : 
五 一 > Eco 一 再 sf(2 下 
用 立 玫 示 氏 个 未 知 常数 1aa ,ee 二 二 1 2: 工 , 即 


有 [ai 3 本 1 区 ,全 1 9 上 were 





于 是 传递 函数 可 写 为 
1 十 ae ! 十 机 < 
古 人 ee) 一 避 [1 十 eg 一 1 十 全 
一 性 现 (2 
均 方 误 玫 函数 为 


互 (cyX) 一 2 | 五 (zs | 一 百 o(z) 了 
假设 使 吾 (c,z) 最 小 的 变量 值 为 x“ 和 ec“ , 那 么 最 优 卉 益 因 子 "为 
了 ;| 瓦 (zs 上 五 sc) 


习 ” 一 - i1 


if 
了 >) | 五 Ge， 下》 皇 
ti]1 


求 z 必 须 运 用 非 线性 优化 方法 ,此 处 采用 DFP 变 尺 度 算法 。 为 了 应 用 这 种 方法 ,需要 三 
cz) 对 氏 个 > 分 量 的 每 一 个 求 往 导 获 , 即 


的 了 -2 > 瑟 (z 可 | 一 瓦 (z] 2 


式 中 惰 是 二 的 第 最 具体 可 以 用 下 式 玫 示 














arecoe1 - 所 
[五 (Czssz) | Re| 十 ae 十 页 | 
0 _ 2 
| Re L1 十 ee 十 所 元 
引 本 (xz)| _ 和 
沁 一 一 | 瑟 (xx7| Re| 十 coerI 十 @ | 
引 豆 (zsz)| 





浊 一 1 理 (ci 1 Re| 十 ce 二 - 十 | 


如 果 涉 波 恬 有 的 极点 位 于 单位 圆 外 ,那么 可 用 一 个 全 通 阀 络 把 这 些 极点 反 演 到 单位 
圆 贞 ,这样 既 保 证 滤波 器 的 稳定 性 ,又 不 改变 其 幅度 响应 。 


三 .使 用 说 明 
1. 子 函数 语句 


void iircad fname 》 
2， 形 参 说 明 
字符 型 指针 变量 。 数 字 滤 波 器 技术 指标 的 数据 文件 名 。 





fnarme 


209 











画 数 iircad(6? 调 用 以 下 函数 ， 

子 函 数 functG) ,计算 最 优 增益 因子 *" , 均 方 误差 也 及 DFP 算法 中 所 用 到 的 偏 导数 ， 
并 输出 滤波 器 的 各 个 参数 。 

子 函 数 roots() ,计算 小 波 器 的 零点 和 极点 。 

子 函 数 inside() ,将 单位 圆 外 的 根 反 演 到 单位 加 内 。 

了 通 数 dfmip(?,PFP 优化 算法 ,确定 五 Ce ,xz) 的 最 小 值 以 及 最 优 参 数 c 和。 

子 医 数 gainc(G) ,计算 沥 波 器 的 频率 响应 。 人 参看 第 二 篇 842 节 。 


四 、 子 通 数 程序 (文件 名 :iiread.ec) 


柱 include ”raath. hy> 
杜 include ”stdio, hw 
并 include ”gaime，ew 
int ealli 
void iircadkftnamey) 
char # fnames 
tint jyrmymlonuieryband, fagylinmity 
double fvestyepsiupeytney ydes; 
double xL33],gL33 ht625，w[Ll1001yL00] 
double dmaxfy); 
void inside()yrootsf) functtyydfimfp0)y 
FIELE *#* 加 | 
fp 一 fopenCfnamey rr 7) 
这 (tp 一 = NULL) 
{ Printfk*cann't open this filewn" exitt0O)73 } 
fscanfifp ”9d bandy7; 
让 《band 近 一 0) 
{ mm 一 0; 
do 
fm 十 十 ; 
scanftfp 的 二 赂 1 区 wwLrmm] ay[m]7s 
} whileg mw[m] <057 
else 
{ml 一 0 
foer 人 =0i<band;j 十 十 》 
{ 和 canffip 晤 下 后 下 的 1] upeyguney 和 ydesys 


fr = 一 Inl， 
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{ mm 十 十 ; 
wfm] 一 upe 十 ((one 一 tpe)x (ma 一 ml 一 1) 7》720.0; 


ylLmj] 一 ydes ; 
hilef 《mn 一 和 1)< 一 20 7 
Im 一 mm 


} 
faeanf fp 折 和 归 昌 儿 1 玫 由 放 nglimnit&estyeps)s 
fcelosefgtp 7 
foer 0 一 1 二 一 624 和 十 十 ) 
fthbi] 一 00;} 
fcer (j=15 < 一 32;j 十 十 ) 
{g6] 一 0.0 
xf 和] 一 0.0i 
} 
x[4] 一 0.253 
f 二 0.0) 
ier 一 昌 ， 
eall 一 0 
do 
{ dftmnfp(Rnxyefgyg&esty&eps,25，&ieryhywyym3i 
insidefgmnyxygflag); 
whileg ( (flag } 一 0) gerl 一 0 ) Reall 拓 一 limit) 7 
call 一 一 103 
funct(&n xy gfTgywyrnmy)y 
} 


static void fnnctfpnayxypftgywyymy》 
it 基站 电 # 
deubte #* pf,x[ 门 ,g[],w[ 7 
{ int ji,j, kiibeyisav ,jd4 jd4lorders 
double aaiya2,piyattnyfreqyTrippyune yupeyydes: 
double qry*qiynuderynudeiyqbarrsabariyzcurryzcutiyzcutr2ryzcur2il 
double yht[100],e[100]， 
static double ztr[100],ziLl00]; 
double e[40],dLd40],atnL300],phL300.; 
double nutnr[L100][L9],numiLiooJL91 
deuble denrf100][9],deniL100][9]; 
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chat fnarme[401; 
FILE * fpP1; 


Pi 一 一 4. 自 关 atafntl D)s 
一 #Phny di 
让 (call 一 一 0) 


1 for《i 一 131< 所 一 间 和 二 十) 
{ mr[i] 一 coskw[i*2xDpi7i 
下 [Li 一 sinfwli] xz2sxbpi)i 


} 
和 一 0. 0; 
3a2 一 日. 0 
foerki 一 19< 一 mii 十 十 )》 
1 zeurr 一 zr[i; 
zceuti 一 ziLi]; 
ZCUIT27T 一 ZeUIETFC 关 ZCUIT 一 ZCUTI % ZCUTI 
zcUITZ 一 2XBctTL # ZCUTis; 
qrT 一 1.05 
ii 一 人. 人 0 
for 全 一心 一 区 和 十 十 》 
{j4 一 站 一]》 关 4 
autmtr[i]b] 一 xU4 十 1 * zcurr 十 xD04 十 2]x zeur2r 十 1.0; 
numifi[i 一 x[j4 十 1 xzcut 十 xi4 十 2] * zcur2is 
dentrtijD] 一 x[L 让 十 3] xzeutrr 十 xD 十 4 zcur2r 十 1.0; 
deni[i]D] = xd 十 3]x zcuri 十 XU 十 4] xzcur2is 
nuder 一 humr[i]U]xdenrbi Dj 一 numif Di] * denilil1by 
nuder 一 nuder/f pow(dqenrfijD] ,2 十 powkdeni[ijb], 2 7 
nudej 一 zutnai[iLjJ xdenrD] Li 一 narmrbD* deniDD 
nudei 一 nudeiAg pow(kdenr[i[i],2)》 十 powfdeni[DD 2 3 
dhbarr 一 qr; 





Qbari 一 qis; 
qT 一 qbarr xx nudety 一 Qbati x nudeiy 


i 一 dbari x nuder 十 qbarr x mudei; 


} 
qbarr 一 Qt# 
qbari 一 一 Gil 


yht[Li] 一 Garxqr 十 三 #qis 
a2 一 a2 十 yht[i; 
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yht[i] 一 sqrtCyhtLi]); 
al 一 al 十 yht 人 xy 


} 

a 一 al/a2; 

基 人 人 人; 

for 和 = 一 135j< 拓 一 165 十 十 》 
{ gj 一 90 } 


fer 人 一 15i< 一 mi 十 十 ) 
4 zcurr 一 2 人 
zcutri 一 下 全 
zcCUT2T 一 ZUTT 关 2CUIT 一 2CUIL EX BCUS 
ZFUr2l 一 2 及 关 BCUITT 关 BCUTI 
yhtfi] 一 axyhtDi] 
ef 一 yhtLi] 一 y[i; 
x pf 一 xb 十 e[*efi] 
for 盖 15j<= 一 5 十 十 》 
fj -= 一 17 关 4 
nuder 一 htatnr[i po 和 tnumrEiti 了 ,2 十 powCnumifti]r 门 ,2)>; 
nudei 一 一 numi[i]Lj] powcaumrD]L 站 ,2 十 powfnurmnifi][ ,27); 
qt 一 2.0#e[i]xybhtLi]xmnuderi 
di 一 2.0xejxyhtt 了 xnudeis 
gLi4 十 1] 十 一 Qrxzcurr 一 qixzcuri 
g[ 这 十 2 十 一 虹 #2CUt2r 一 枯 2CUT 人 ; 
nuder 一 denriil[i/Cpowkdenr[i][i 让 ,2)-+powCdeni[iCj],2))， 
nudei 一 一 aeni[Li[Ti]Apowkdenr[iD], 27 十 powkdenili]Lj] 27 
qdr 二 一 2 各 x<erijsyhtf jx#nuader; 
i 一 一 2.0xeelisyhtLi] xnaudei 
gLi4 十 3j 十 一 4 # zcturr 一 xzcuris 
gbji4 十 4] 十 一 呈 xzcur2r 一 qi# zcur2iy 


} 
call 十 十 
计 ( call >> 0 retutrni 
order 一 kpn/2; 
printft nn 7 
Printf (7 Injinite IJmpulse Response 《TIR yn 
printEg7 Fletcher 一 Powell Optimization 入 ljgorithmsn 7) 
Printft fw Recutsive fiter of Drder 中 4dw ,order7; 
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ibc 一 ]; 
ac 
fune 一 罗 [Libc]; 


ydes 一 y[ibe ji 


ibe 十 十 ; 
for Gi 一 ibheii< 一 mii 十 十 ) 
{ 这 (YL 一 一 ydes ) continue' 

upe 一 ww 一 1]; 

break ; 
《0 一 1) 一 一 m)upe 一 WwWfml] 
Printf" AnBand edges are %%5. 叶 牟 5. 寻 ”yuneyupeyi 
PrintffiDesired value 一 邮 5.2f7 ydes7+ 
ibe 一 1 


} while (ipbe <tm 7) 
printfC" AnEinal error fanetion value 一 听 15. 8ft" ，x# pt) 
attnm 一 扣 . 曲 ; - 
ripp 一 00.0; 
for 人 一 1ji< 一 种 有 二 十) 
:证 《yt 一 1.03 
[这 (7 一 一 0.0) 8& (fabs(e[ 门 ) >= attn) ) 
attn 一 fabske[i])3 
else 
{ 计 (tabs(eLi]) 之 一 ripp) 
ribpP 一 fabskeli]); 


} 
TippP 一 20.0x#loglof10 十 Tipp7s 
attn 一 20.0xloglofattny)+ 
Printi saMaximum absolute deviation in passband 一 凤 10. 51fdbsny ,Tripp) 
brintfKsnMinimnum stopband attenuation 一 由 10.5lfqbvny ,attn)i 
printf (ynConstant multipler ex 一 15.8fnv a); 
PrintfKxCoefficients for cascade decomposition” ) 1 
for 与 二 0ij<kjij 十 十 ) 
fj 和 一 j#<45 
jd41 三 过 /4 十 1; 
printf (nnSeetion 喀 1d" ,jj 十 13; 


Printfn 8a(id) 一 掉 15. 叶 bbC 煌 1d) 一 锦 15. 8f” ,jd41,x[ 才 十 1],j41,x[j4 十 2]); 
Printftwn ce 由 1d)7 一 把 15. 8 人 村 上 折 1d? 一 站 15.8 科 ,j41,xDj4 十 3] 41 [ji 十 4] > 
} 
jsay 一 cali; 
eall 一 一 10; 








TootSs(pn 7 
call 一 jsav; 
Jor 一 0;j<kij 十 十 ) 
{ 计 和 一 一 0) 
{dLo] 一 ai 
dtl] 一 axx[1]; 
dt2] 一 axx[2]; 
} 
ise 
{dUjx3 二 DO 一 10i 
dDjx* 3 十 1] 一 x[4*j 十 1]; 
dLjx 3 十 2] 一 xL4*j 十 2]; 
cLi* 3 十 0] 一 1.0; 
cDjx* 3 十 菇 一 x[4*ji 十 3]; 
eLjx3 十 2] 一 x[L4+*j 十 4]; 
} 
printf(” nentet file name of Imagnitude responsevn” ); 
SCantf” 98 fname7; 
主 〔《fp1 一 fopen(fname yw 一 一 NULL) 
{ Printfk*eanmnot open Hile 邮 snr ,fnatme 7 
全 XitfDOy 
} 
gainc(dcy 2 kamyph,201,27， 
for G 一 0ii<2018 十 十 ) 
t freq 一 ix057200.0; 
fprintfCfp1”%%1 邓 1 ,freqyam[i)3 
} 
fctoseftp173 


static yoid inside《Ph,xypflagy》 


int #x* pny spflags; 
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double x[]; 
{ int1 = 一 1; 
double b “discyrlr2ydrlydr2s 
*pflag 一 口 
While〔 (十 2) < 扫 一 xpn ) 
1 一 1 十 2 
旧 一 一 0 5sxXU 
c 一 x[Di 十 1 
disec 一 bxb 一 & 
if fdisc 之 00D) 
{ disc 一 sqrtfdisc)， 
rl 一 bb 十 dise; 
IT2 一 hb 一 dsci 
drl 一 fabsfr1)) 
dr2 一 fabs(r27i 
ii (drl 所 一 1.0) 交 攻 (dr2 所 一 
# bfilag 一 1; 
这 《drl >1.07T1 一 1.0Arl 
放 kdqr2 人 > 1.0) Tr2 一 1.07r2 
x[il 一 一 1.0x trl 十 2 
x[Li 十 1] 一 +Y1xTt2i 
else 
{ 让 人 e < 之 一 1.0) continue 
xpftlag 一 14 
一 1.0Aci 
x[Li 十 1] 一 eli 


xi】 关 一 宝 ; 


static veid rootsfPpn,x) 


int xpny 

double xf 

fint j 一 一 1 
aqottble byeyrlr2,discydiscm 
计 《call 一 一 一 10) 
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1.0) ) continue; 


E 


{ Printt( nanRoots yn 和 
pzrintfKr Real Itnag 及 eal Imagn7 ) 
} 
while《 《十 2) < 所 一 <*pn ) 
(jj 一 j 十 23 
让 《ji 一 一 171》 
让 《js%4 一 一 1) 
{ printf(7Section 吕 1dsvn ,jzd7 十 1); 
Printt(” zerOsn 7)# 
】 
ed]Se 
{ printf(” poles)1 } 
昌 一 一 0.5 * xD]y 
c 一 XLj 十 1]; 
disc 一 bxrhb 一 上 
这 (disc > 0.0) 
{ disc 一 sqrtfdiscy 


rl 一 曲 十 dsc; 
T2 一 日 一 dsc; 
让 《cail 三 一 一 10) 
priattC 9%15.81f 听 15. 8 rr1r27 5 
} 
else 


{ disc 一 sqrt( 一 1.0# disc)# 
discm 一 一 1.0xdiscy 
过 《call 一 一 一 107 
brintfer 0 15 8LE015 8 15. 8 的 15. nrybydisc bdiscnmyy 


static yoid dfrmfp(pnyxypfiygypest,pepsylirnit ,pier,hywwyyia) 
int mylimit，# Phny # Piery 
double x[J],gLJ,hbywwD LE 
double *Pf，*t Pest，# bebsy 
tint ij 攻 ln2n3,n3lnj,kl ,kounty 
double twyzydzydyy 友 :向 ,alia,ambqa ,dalfa ,hnrmgnrm ,okdf; 
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fanctfpny xpfgy momy)s 
基 Dier 一 站 
Kount 一 昌 ， 
n2 一 站 Ph 十 关 ns 
n3 一 mn2 十 关 BPDnIi 
n3lL 一 mn3 十 1 
11; 
k 一 n31; 
for 人 一 1 所 一 关 pn 避 十 十 》 
(hikj] 一 1 0; 
站 一 *pa 一 ji 
许 nj 所 一 0) hreak; 
fer (一 1j 一 一 njjl 十 十 》 
{ &L 一 攻 十 1; 
hfkl] 一 人 0 
4 
“长 一 LI 十 1) 
} 
while( 1) 
人 KEounht 一 kount 十 二: 
aldf 一 关中 
fotr (一 15j< 拉 一 *pni 十 十 ) 
《一 关 pn 十 扩 
h[Lkj 一 《1 
k 十 一 xpn; 
Ph[E] 一 xD]; 
长 一 一 mn3i 
ft 一 00; 
for 电 一 1 和 < 开 一 #pnhjil 二 





ft 一 一 gx<hLk]; 
计 引 < 
上 十 一 * Ph 一 | 
所 1SE 
上 十 十 
和 
hf 一 t; 
dy 一 0.05 
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Fnrp = 一 站 .人 0; 
名 rm 一 日 .日 ; 
fior 人 天 13 二 一 关 pnji 十 十 ) 
{ hnrm 十 一 fabsthD 7)， 
gnrm 十 一 fabsfKgLjjyi 
dy 十 = hDUJxgri; 
} 
让 (dy 袜 一 站 0) goto 14; 
这 ( hnrmygnrm < 一 *#beps ) goto 14; 


入 二 *pfti 
al 雪 一 20x(fxspest 一 <pBft)Aays; 
armpda 一 于 . 曲 ; 


让 (alfa > 0.0) 
{ 让 (alfa < atnbda)y ambda 一 alfa; )} 


3lfa 一 0.0; 
alo 
(人 一季; 
dx 一 dyj 


ter 《一 1 一 其 Di 十 十 ) 
{ xf 一 xD 十 ambda *hhfT， ) 
fbnncttbnXxypfgrwmwymy7i 
未 一 关 pfs 
dy 一 1 们 0; 
for (一 1< 一 *DDi 十 十 ) 
1 dy = 一 'dy 十 外 is*h[Li]i 》 
让 (dy 一 一 0.0) goto 13; 
让 (dy0.0)11《5 生 人 > 一下)) goto 123 
ambda 十 一 alfai 
alfa 一 ambdai 
While【〔 haorm #xambda < 一 1.0 )) 
# Pier 一 2 


TetUTI # 


whbile( 1 ) 
ft 一 0.0; 
wbile (1) 
{ 放 《ambda 一 一 0.0) goto 13} 
z 二 3.0x(E 一 fambqa 十 dz 十 dy; 
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alfa 一 dmax(fabs(z) ,fabs(dx)yfabs(Kdy7)# 
qdalfa 一 zfatfasy 
dalfa 一 powfkdalfa,2) 一 dx/alfa)y xdyyalfa7; 
这 ( dalta < 0.0 ) goto 144 
到 一 altfaxsqrtfdalfta); 
aifs 一 dy 一 dx 十 >m 
计 kalfa 1 一 0.0) 
{ alfa 一 (dy 一 z 十 W)Aalfa } 
else 
1 alfa 一 (zz 十 由 一 WCGz 十 4 十 5 十 由) } 
alfa 一 alfa * ambada' 
for fi 一 13< 忆 一 #paii 十 十 ) 
: X[Di] 一 xp] 十 kt 一 alfa)》* 上 hi 
functkpnyxybftgywwyyrm)s 
让 【xbft < 一 fx) 
《证 必 关 叶 < 一 和 gotol13y } 
dalfa 一 0, 0 " 
for 《一 15i 居 一 <Pnii 十 十 ) 
{ qalfa 一 dalfa 十 gs*hDz } 
让 人 (dalfa 之 一 0.0) 1|Cxrpt > 不 ) )breaks 
让 《xpt 一 一 fr)ygR (dx 一 一 dalfa) ) goto 13; 
研一 关 bf 
dx 一 dalfai 
t 一 alfay 
ambda 一 alfay 
} 
证 (fy 一 一 # 昌 全 
{ 计 (dy 一 一 dalfa) goto [3 } 
y 一 #pfy 
dy 一 dalfa: 
atmbqa = ambda 一 aifas 


13 
放 《 《etdf 一 # FE 十 关 Peps)y < 和 0 个 )》 goto 
for 人 =1 和 所 一 #<Dpnj 十 十 》 
{k 一 *bn 十 j; 
h[Lk] = gDJ 一 hk]; 
丰 一 关 bn 十 下 ; 
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h[k] = xD] 一 hk 


} 
< biet 一 0 
这 (kount 六 一 # pny》 
(tt 一 00 
了 一 修 . 人 0 


for(《j 王 1 和 < 一 *pnij 十 十 ) 
{k 一 #po 十 ji 
妈 一 让 [kk 
攻 一 攻 十 并 PDy 
t 一 tt 十 fabschfk]); 
2 一 2 十 妈 #hLk]; 
} 
这 《 〔hnrm 性 一 * peps) 下 Ct 必 *peps) ) retutni 
) ， 
让 《koeunt 之 一 jimit) 
{ 关 Pier 一 13 
returny# 
} 
alfa 一 0.04 
for (一 1 < 一 *bpahb 十 十 ) 
{ 上 一 j] 十 3 
研一 .04 
for 人 一 1 一 #Dbnail 十 十 ) 
{ 抽 一 xpn 十 1 
内 一 凤 十 krhLkjs 
证 昌之 
[KE 十 一 *pn 一 二 
else 
{k 一 kk 十 1 
} 
一 *#pn 十 ji 
alfa 一 aita 十 六 xhfkl]s 
D] 王 w# 、 
} 
主 《z#+al 二 一 二 0.0) goto 1 
k 一 n314 
for 革 关 1 和 < 二 一 # pnfi 十 十 ) 
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{fkl 一 n2 十 1; 
for 昌 一 1 和 之 一 <bni 十 十 》 
tn 一 n2 十 j3 
bik] 一 h[EJ 十 hi] hpni yz 一 hs*RD alfai 
攻 一 攻 十 1 


， 
了 


# Pier 一 1; 
rettID 
芭 ; 
for (一 1 过 一 关 pnh5j 十 一 ) 
《一 nn2 二] 
xi] 王 hLkJ]; 
} 


fanctfpnxy pi Eyen) 








让 《 gnrma 2 关 Peps ) 
{ 计 【《 关 Pier 一 站 有 


{ #pier 一 一 1 
ooto 113 
} 
} 
ejse 
{ <3ier 一 0 


Static qovuble Qmaxkaybye) 

double ab,c; 

{ double di; 

”一 但 所 一 by 了 yp :ai; 
计 忆 < 一 cd 一 Ci 
Freturnm(d7 


五 例 题 


数字 总 波 器 的 技术 指标 一 般 有 两 种 形式 :一 种 是 给 定 若干 离散 频率 点 及 其 所 对 应 的 
幅 值 ; 另 一 种 是 给 定 滤波 器 的 通 带 和 阳 带 范围 。 胃 本 节 方 法 设计 数字 滤波 器 时 ， 要 将 泪 
波 器 的 技术 指标 建立 一 个 数据 文件 。 在 数据 文件 中 , 首先 给 定 参 数 band,. 若 pand 委 0, 则 
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表示 频率 点 输入 方式 ! 否则 为 频带 输入 方式 ，band 表示 频带 数 ， 其 次 ， 给 定 关 干 离散 频 
率 点 及 其 所 对 应 的 辐 值 ,或 者 给 定 滤 波 器 的 通 带 利 阻 带 范围 ; 最 后 ,给 定 四 个 有 关 参 数 ， 
滤波 器 系数 的 仿 数 n， 攻 数 计算 次 数 慨 限 limit, 函数 最 小 佑 计 值 est， 以 及 所 要 求 的 绝对 
误差 值 sps。 具 眉 佑 用 方法 见 下 面 的 例子 。 
主 函 数 仅 要 求 输入 数字 滤波 器 技术 指标 的 文件 名 。 
主 天 数 程序 (文件 名 :iircad. my): 
共 jnelade ”stdie,hy 
林 include "iircad. cy 
Imaint《 ) 
{ char fmnamelL40]， 
printt Cr nenter data file natnewna” 1 
scanff7 9%s fnameys 
iiread(fname?+ 
例 1: 说 计 IIR 尾 通 数 字 滤 滤器， 其 技术 指标 为 
1.0 了 一 0.0:0.005,0,.01,0.015,0.02，…,0.045 
和, 5 子 一 0.05 
0.0 了 一 0.055.0.06,0.065,0.07，…，0.095 
40 了 一 0150.15) 0 2)0.25,…0.5 
选择 参数 n 一 8, limif 一 500, est 一 0.0,，eps 一 0.00001 。 用 频率 点 输入 方式 ,建立 数据 文件 
(文件 名 :iirp-dat) 如 下 ， * 


和 

0.000 1.0 
0.005 1.0 
0.010 1.0 
0.015 41.0 
0.020 1.0 
0.045 1.0 
0.050 0.5 
0.055 0.0 
0.060 0.0 
0.065 0.0 
0 070 0.0 
0.095 .0.0 
0.100 0.0 
0.150 0.0 











0 200 0 


0,.250 0.0 

0.500 0.0 

8 500 0.0 0.00001 
运行 结果 ， 


Infinite Impulse Response《〈IIR) 
了 letcher 一 Powell Optimization 后 1gorithrm 


Recuysive Filter of Drder 44“ 

Band edges are 0, 00 人 04 Desired vaiue 一 1.00 
Band edges are 0. 05 0.05 Desired value 一 0.50 
Band edges are 006 0. 50 Desireqd value 一 0. 00 
final error tunection value 一 0. 03395907 
Maximum absolute deviation in passband 一 0. 30519 dB 
Minimum stopband attenuation 一 一 17.96839 BR 
Constant mujltibier c x 一 0, 02486738 
Coefficients for cascade decomposition 
Serction ] 

上 人) 一 一 1 2227436f bf 人 (17 一 0. 99999998 

cl 一 一 1 7 了 2803447 芋 (1 一 吕 . 7652744 台 
Section 2 

a(2 一 一 1.85076922 bf27 一 0. 99899998 

Ck2) 一 一 1.8624367 台 d(2) 一 0. 94400191 
Roots 

Real Imag Real Jmag 

Section 1 

ZeYODS 0. 61137183 总 ,了 昌 1 34346 0.6T137183 一 0 791T34346 

Doles 0. 86454723 0 13353860 0. 86454723 一 0. 13353860 
Section 2? 

ZeyDs 日 925 8 和 1 D,. 37902943 0, 92538461 一 0. 37902943 

poles 0.93121838 0. 27718988 0.93121838 一 90. 27718988 
该 数字 小 波 器 的 幅 频 嘛 应 如 图 2 一 5 一 13 所 示 。 

例 2， 设计 IIHR 低 通 数字 滤波 器 ， 其 技术 指标 为 
BCP 二 1.0 0 和 雪子 委 0.16 
0.0 0.2 委 了 委 0.5 


选择 参数 n 一 8，limit 一 500，est 一 0.0，eps=-0.00001。 用 频带 得 入 方式 ,建立 数据 文件 
文件 名 :iirb. dat) 如 下 : 
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， ie 0 由 3 


增益 tdB+ 
| 





妇 .1 0D.2 日 ,号 
归 一 化 频率 


避 -4 总 .5 


图 2 一 5 一 13 低 通 IR 数字 恋 波 器 的 幅 频 响应 《 例 1) 
2 


0, 0 0 16 1, 0 
0. 2 0. 5 0.0 
8 500 咏 0 0.00001 


运行 结果 : 
Infinite Impulse Response (IIR》 
Fletceher 一 Powetl Optimization 入 lgorithm 
Recursive Filter of Order 4 
Band edges are 0. 00 0. 16 Desired vainue 一 1.00 
Band edges are .20 0, 50 Desired value 一 .00 
Final erraot funetion value > 0 03020483 
Maximum absolute deviation in bpassband 一 0. 38934 d 也 
Minimurm stopband attenuation 一 一 19. 43039 dB 
Constarnt multipler ex#x 一 加 05905215 
Coefficients for cascade decomposition 
Seetion 1 
af 一 0. 19750014 bft12 一 0. 99999996 
cf 一 一 二 03898522 由 4] 一 0 .37798107 
Section 2 
a 2 一 0 1975001 和 本 b722 一 0 99999996 
cf 2 一 一 洲 94936040 d(27? 一 0. 80729536 
Roots ; 
Real Imag Reali Imag 
Seetion 1 
ZerOS 一 0.09875007 0. 99511225 一 0.09875007 一 0.99511225 
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Poles 0. 51949261 0 32879857 0.51949261 一 站 32878857 
Section 

ZetOS 一 日 .09875007 D. 99511225 一 0.09875007 一品 8989511225 

poles 0. 47468020 0 76287224 .47468030 一 0 76287224 


该 数字 汪 波 器 的 枉 频 响应 如 图 2 一 5 一 14 所 示 。 
10 





图 2 一 5 一 14 低 通 IIR 数字 滤波 器 的 幅 频 响应 ( 例 2) 
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第 六 过 FIR 数字 滤波 器 的 设计 


《6.1 窗 困 数 方法 
一 、 荔 能 
用 窗 落 数 方法 设计 线性 相位 FIR 数字 滤波 器 。 
二 、 方 法 简介 


设 六 一 1 阶 FIR 数字 滤波 器 的 单位 名 激 响应 为 na)， 则 传递 函数 豆 (z) 为 
百 (z) 一 六 (pz 


徐 函 数 法 的 设计 步 又 如 下 ， 


1. 根据 给 定 的 理想 频率 响应 吾 s(e”)， 利用 傅立叶 反 变 换 ， 求 出 单位 冲 激 响 应 
下 直 呈 7 


iso 一 去 | Ceeyemdw 


2. 将 ia( 思 和 鞭 以 窗 函 数 ww(a) ， 得 到 所 要 求 的 FIR 滤波 器 系数 天 (nm) 
丰 { 症 ) 于 记 (JReED 0 大 2 祥 有 一 1 








常用 的 窗 函 数 有 ， 
析 形 窗 
1 一 1] ， 0 过 mW 一 1 
图 基 (Tukey) 窗 
0 
0.5(1 一 cos( 元 2 ) ， DSS 有 CN 一 人 110 
my 一 4 1 ， (YY 一 2/10<S9COVN 一 27710 
0.5(1 一 一 cos( 共 玉 一世 )) ， 9(UV 一 人 /10<sSnAN 一 1 
三 角 窗 
wo 一 1 1 一 | ，o<e<N-1 
溉 宁 (Hanning) 窗 
Ta) 盖 和 5 一 澡 5ecos 人 TS7SN 一 1 
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海 明 (Hamming) 窗 











Ta 一 0.54 一 用 46cos 六 ， 0sss 和 一 1 
布 拉 克 曼 《Blackman) 窗 
Ca) 一 0.42 一 0. 5cos 2E2 十 0.08cos o<cn<N 一 1 
tk 一 42 "350s 六 二 “98eos 丽 二 1， 所 -ss 
凯 塞 (Kaiser) 窗 
3vT 一 0 一 史 KNT7 
oay 二 Ti(8v1 一 (1 一 2 人 1) 六 ) o<n<N_1 





08》 
其 中 mk8) 是 第 一 类 零 阶 修正 贝 塞 耳 函数 .日 是 控制 窗 函 数 形状 的 参数 , 8 越 大 , zw (Cn) 窗 . 
越 窄 ， 频 谱 的 旁 瓣 越 小 , 但 主 准 也 相应 加 宽 。B 的 典型 值 为 4 委 BE9。pB 一 0 时 ， 凯 塞 窗 变 
为 抵 形 窗 ; 8 一 5. 44 时， 凯 塞 窗 与 海 明 窗 接 近 ; 8=8.5 时 ， 凯 塞 窗 与 布 拉 克 虹 窗 接近 。 


三 、 使 用 说 明 
1， 子 函数 语句 


void firwingn band ,fn thnywnby) 

2， 形 参 说 明 

n 一 一 整 型 变节 。 让 波 器 的 阶 数 。 

band 一 一 整 型 变量 。 涉 波 器 的 类 型 , 取 值 为 1、2、3 和 4， 分 别 对 应 低 通 、 高 通 、 带 
通 和 带 阻 滤波 器 。 

fln 一 一 双 精 度 实 型 变量 。 

fhn 一 一 双 精 谨 实 型 变量 。 

对 于 低 通 和 高 通 滤波 器 ，fln: 通 带 边界 频率 ; 对 于 带 通 和 带 阻 滤波 器 ,fln， 通 带 下 
边界 频率 ，fhn:， 通 带 上 边界 频率 

wan 一 一 整 型 变量 。 窗 函数 的 类 型 ; 取 值 1 到 7, 分 别 对 应 抱 形 窗 ， 图 基 窗 , 三 角 窗 ， 
汉 宁 窗 ， 海 明 窗 ， 布 拉克 曼 窗 和 遍 塞 窗 。 

h 一 一 双 精 度 实 型 一 维 数组 ， 长 钴 为 全 十 1). 存放 FIR 滤波 器 的 系数 。 

函数 firwin() 调用 以 下 函 数 ， 

子 画 数 window()， 窗 函数 的 计算 。 

子 函 数 Kaiser() ， 凯 塞 窗 的 计算 。 

子 国 数 bessel0G) ， 贝 塞 耳 国 数 的 计算 。 


四 、 子 函数 程序 (文件 名 :firwin, ec) 


持 inelude math, hy 


void firwintn yband ,in fthnywnhy 





int nyband ,wnj; 
deuble flnfhn,h[]; 
{ int iyn2ymid: 
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double syPiywelywc2ybetaydelay; 
double window( ) 
beta 一 0.0; 
证 《wmn 一 一 7) 
{printft>input beta Parameter of 改 aiser window (3 < beta< 10 An) 
scanft gg Rbeta)y 
} 
Pi 一 40xatanf1,07; 
让 《 (n 闻 2 一 = 0) 
tn2 一 nyA2 一 1 


mid 一 1 
} 
else 
fn2 一 nyA2; 
mid 一 各 


delay 一 mA2.0 
Wecl 一 了 和 并 人 ii 冯 下 mm; 
主人 band > 一 3)》wc2 一 20x#bpixfhni 
switcn ( band ) 
( case 1: 
1 for 人 一 03i< 一 n23gi 十 十 ) 
{s 一 1 一 delayi 
hj] 一 (singCwcelxs7Apixss733+windowtwnn 十 1, ivbeta)y 
hn 一 训 一 hp 
， 、 
计 《 mid 一 一 1 ) hbnA/2] 一 wel/pil 
break; 


Case 之 
{ for 0 一 0 ic 一 n2i li 十 十 ) 
{s 一 1 一 detay; 
hi] 一 (sinfPixs)》 一 SinCweclxSs))ACpixSs)5 
hlLij 一 hx windowkwayn 十 1,iybeta7y 
hn 一 让 一 hi; 
} 
这 (tnid 一 一 17》hiny2] 一 1.0 一 welypii 
break ; 
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} 
Case ; 
1 for 人 一 0 ji 之 一 n2 1 十 十 ) 
(ss 一 [一 deiay; 
hb ] 一 《sin(Cwe2 xs) 一 Sinfwcelxs))ACDPiXs); 
Rh 一 hswindowfwnn 十 1,ibeta7; 
hLn 一 1 一 hLijs 
} 
让 《mi 一 一 1) hb] 一 《we2 一 wel)ApPis 
break 
} 
CaSe 二 
{ for 人 一 0 1 一 n2y 1 十 十 ) 
{s 一 工 一 delay; 
hD] = 《sin(welxs) 十 sinCpixs) 一 sinfwec2xs))ACpixs)i 
hfri] = h[i]* windewGwnn 十 1,iybeta)i 
hba 一 站 一 上 Di]; 
主人 imid 一 一 1 )htna72] 三 《wel 十 Di 一 WwWc2)7pis 
break， 


static double winctowftypeynyiybetay 


int 1yD ytybpeys 
doubla beta 
{ jnt k; 
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double piywi 

double kaiser(D) 

Pi 一 4.0xatanC1.D07; 
一 .0 

swWitech 〔 type ) 


{ case 1 
{ 到 一 1.0 
break， 
} 


Case 了 











1 一 人 n 一 2)710) 
这 人 is 一 k) 
妈 一 0.5yxf1.0 一 cosG xDPi 十 1)7); 
让 人 > 总 一 k 一 人 
研一 05#fl0 一 cosfCCn- 一 一 1》#PiAk 十 1 


breaky 
} 
case 3， 
{ 有 一 1.0 一 fabsf(1.0 一 2#in 一 1.0775 
break 3 
} 
Case 二 : 
{ 本 一 05xflD0 一 ecosf2xixbikn 一 1)7))3 
break; 
】 
Case D: 交 
1 一 54 一 046xrcos(2xixpA On 一 17233 
break; 
} 
Case 吕 : 
{ 机 =0 42 一 总 5#cos(2xixBpn 一 1) 十 0.08xeos(4xixbpina 一 1)74 
break; 
CaSe 7: 


《本 一 EaiserKiy mbetay4 
break 
} 
} 


Teturmtwmi 


static double kaiserfiynybetay) 
int 1ons# 
double betas 
《 double aywa2hltyb2ybeta1: 

double bessel057); 

bl 一 bessetOCbeta7j 

站 一 2.0x#ifdouble)tn 一 1) 一 1.0; 
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3 一 站 关 37 

betal 一 beta#*sgrtt1.D 一 82233 
b2 一 hassel0otbetal7; 

友 一 b2bly 


returmngw)y; 


static double besselotkx) 
coeuble xy 
fint 
double 出 ,ydq25summi 
7 一 XA2.01 
dd 一 1.0; 
sum 一 .05 
fer (一 15i 民 一 25ji 十 十 ) 
[和 一 日 着 YA 
d2 一 dxrdi 
suta 一 Sum 十 d2; 
计 id2 < sum yx (1.0e 一 8) 》break， 
} 


treturnfsurm ) 


五 栅 题 


下 面 给 出 主 函 数 程序 , 它 调 用 frwin.e 子 函数 。 通 过 人 机 对 话 , 它 可 以 设计 低 通 、 高 
通 、 带 通 和 带 阻 这 四 种 形式 的 沥 波 器 。 上面 对 输入 参数 进行 说 明 ， 

band; 滤波 器 的 类 型 , n: 滤波 器 的 阶 数 ; fs : 采样 频率 ;， 对 于 低 通 和 高 通 滤波 器 , 了 ， 
通 带 边界 频率 ; 对 于 带 通 和 带 阻 滤波 器 , 人: 通 带 下 边界 频率 , 外 : 通 带 上 边界 频率 ; wnl 
窗 数 的 类 型 ;fame， 幅 频 响 庶 文 件 名 。 

主 函 数 要 调用 计算 滤波 器 频率 响应 的 函数 gain()， 参 看 第 二 篇 84.1 节 。 

主 函 教程 序 ( 文 件 名 :firwin,mm): 

朱 inetude ”staio. hy 

并 ielude "firwine cy 

并 inelude ”gain. ec” 

mainf ) 

{ int ij Don2vbanq wmn# 

qdouble 革 L,fh ,is,freq; 
232 








double hL100],e[100],x[L300],y[300] 
char fname[40]， 


FILE *#* 刘 ; 

cL1] 一 0.0; 

PrinttCyselect one of the four types for FIR digital 和 itera”" 7) 
printfK 1 一 一 jlowpass: 2 一 一 highpassNny 7) 

Ptintf(”3 一 一 bandpassi 4 一 一 bandstopAna7 7 


scanfd” 9%d" yeband)i 
printit"input the fitter order nn 7) 
Scar(2 odr ny 
brintfCrinpat low cutoff frequrncy fn7) + 
Scanff” 听 Hf” ， 尺 了 7 
什 一 上 昌 ; 
让 ( band > 一 3》 

{ printtt7input high eutofft frequeney thn)3 

scanfty” of Rdfh) 

} 
printftxinbut sampte frequence 反 \7 73 
Scanff” oliw efs)i 


Printttw select window An 74 


prtintf(” 1 一 一 rectangulari 2 一 一 tapeted rectangularsny ) ; 
printfK” 3 一 一 triangular 和 4 一 一 Hannipgny)， 

printft” 5 一 一 Haminingy 6 一 一 Biackmanvn 7) 
_Printt(e 7 一 一 路 alserwhn ) 

gcanf(Cr o6dy gwn)i 

了 一 且 / 和 ) 

了 h 一 二 /fs; 


firwintnsband ,flfh,wnyhys 
printf (> FIR digital filterwny 3 
brintf(” 关 关 关 # itnpulse response 并 关头 关 AnDA》 
nz2 一 n/23 
for (i 一 0;i< 必 一 n25i 十 十 ) 
人 一 mn 一 站 
brintff hg2d) 一 上 12.8 一 hof2d)snw iih[i], js 
Printf (input fle name of frequency tesponseNn )4 
scanff” 9%s” fname》s 
证 5 (pp 一 fopenffnameyw7) 一 一 NULL 》 





233 


{ Printf 人 ecannot open this filesvn7"); 
exitfl1)s 
】 
gaintheeny 1 xyyy300275 
for 人 一 0ii<30051T 十 ) 
{ freq 一 0.5xi72993 
fprintiCftp > 闻 1 上 冯 二 sn" freqsx[Li7)i 
} 
fclosef 人 fb) 
} 
例 1: 设计 一 个 30 阶 的 FIR 低 通 数字 滤波 器 , 其 通 带 边界 频率 为 0, 2, 选择 参数 n 一 
30, band 一 1, 下 一 0.2，fs 一 1，wn 一 1， 采 用 抑 形 窗 函 数 。， 


运行 结果 ， 

滤波 器 的 系数 为 
hC0) = 一 一 0.00000000 一 hC30) 
hl 一 一 0.02162362 一 29) 
hfC2) 一 一 0.01439214 一 hC28) 
hf 33》 一 0.01559149 一 (27) 
hf 4) 一 0.02752097 ”一 hC26) 
hf 5 一 一 0.00000000 一 25) 
hfC6) 一 一 0.03363674 一 h24》 
hf9) 一 一 0.02338723 ”一 h(023) 
Rh 8)》 一 0.02672827 一 hC22) 
hk 9) 一 0. 05045512 ”一 h(21) 
hf107 = 一 0.00000000 一 hC20) 
hfCl117》= 一 一 0.07568267 一 hl19) 
hl12) 一 一 0.06236595 一 hl8) 
137》 一 0.09354893 “一 h(17) 
hl142) 三 0. 30273069 一 上 162 
ht15>》 一 0.40000000 = hl15) 


滤波 器 的 幅 频 响应 如 图 2 一 6 一 1 所 示 。 
例 2: 设计 一 个 30 阶 的 FIR 高 通 数 字 滤 波 器 , 其 通 带 边界 频率 为 0. 3。 选 择 和 参数 n 一 
30，band 一 2, 由 二 0. 3, 各 一 1，wn 一 4， 采 用 海 明 窗 函数 。 


运行 结果 : 

滤波 器 的 系数 为 
h(C0) = 0.00000000 一 h(30) 
h( 1) = 一 一 0.00023626 ”一 h(29) 


hf 2) 一 0.00062213 一 上 (28) 
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站 .2 口 .3 间 . 咎 口 .5 
妇 一 化 天 率 
图 2 一 6 一 1 低 通 FIR 数字 族 波 器 的 二 频 响 庶 
ht 3) 0. 00148885 ”一 上 27) 
bc 47 一 0.00455292 一 hf26) 
Rh 3 一 一 0.00000000 一 下 (25 


| 


| 


hf 6 一 0. 01162121 一 上 247) 
hb( 7 = 一 0.01047130 ”一 hf(23) 
h( 8) 一 一 0.01476108 一 h(22) 
h(C9) 一 六 03302330 一 PhC21) 
hl10) 一 0.00000000 ”一 上 20) 
hlly 一 一 0.06316213 一 hl19) 
htt 一 0.05641053 一 hl8) 
Ri3) 一 0.08950506 ”一 Rh17) 
hl4> 一 一 0.29942300 一 16) 
hl15y 一 0,.40000000 一 RCI5)》 


泪 波 器 的 幅 闫 啊 应 如 图 2 一 6 一 2 所 示 。 

例 3: 设计 一 个 35 阶 的 FiR 带 通 数字 让 波 器 ， 其 通 带 下 边界 闫 率 为 0.2， 通 带 上 边 
界 频率 为 0. 35。 选择 参数 pb 一 35， band 一 3 fl 一 0.2, 由 一 0.35, [es 一 1, wa 一 7,，B 一 4，, 采 
用 凯 塞 窗 函 数 。 


运行 结果 ， 

滤波 器 的 系数 为 
ho 一 0.00113801 一 hC35) 
hd 1 = 一 一 0.00495031 一 8C34) 
hf 2 一 一 0.00050242 ”一 hC33) 
hf3 一 000547601 一 (32 
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| 增益 {d8B，》 





口 .] 0.2 0. 
归 一 化 频率 


图 2 一 6 一 2 高 通 FIR 数字 滤波 器 的 幅 频 响 序 


hd 4) 一 一 0.00026031 ”一 hC31) 
h(C5) 一 0.00662038 一 h(30) 
h(6) = 一 0.00961510 “一 (29) 
h( 7) = 一 0.02279672 ”一 习 (28) 
hg8) 一 0.02875198 一 PC27) 
hg9) 一 0.01936872 一 h(26) 
hl10) 一 一 0.02157100 ”一 hx25) 
hfll) = 0.00140347 ”一 hf24) 
hr(12) 一 一 0.05065316 ”一 hf(23) 
hl13) 一 ”0.00842925 ”一 hf(22》 
hfi4) 一 0.16445615 ”一 ht21) 
hk15? 一 一 0.08690071 ”一 hf20) 


hd16) 一 一 0.23204926 一 htl9) 
hkl177 一 0.19276465 一 hl18) 


恋 波 器 的 幅 频 响应 如 图 2 一 6 一 3 所 示 。 

人 鲍 4: 设计 一 个 40 阶 的 FTIR 带 阻 数字 溃 波 器 ， 其 通 带 卞 边界 频率 为 0. 1， 通 带 上 边 
界 频率 为 0. 25.。 选择 参数 na 一 40, band 一 4, fl 一 0.1, 了 一 0.25,， fs 一 1，wn 一 5， 采用 海 明 
窗 函 数 。 ， 


运行 结果 ， 

滤波 器 的 系数 为 - 
ho 一 一 站 00000000 一 hd40) 
hf 17 一 0. 00059158 一 8(C397 
hf2)5 一 一 0.00172412 一 hC38) 
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Pt 3 
h《 4 
Rh 5) 
Pt 6) 
h(7) 
Rh 8 
hC 9) 
h《10) 
hil) 
h《12) 
h(13) 
h(14) = 


中 


| 


| 


图 2 一 6 一 4 带 阻 FIR 数字 滤波 器 的 幅 频 响应 


一 0. 00475414 
一 0. 00196280 
0. 00455673 
0, 00360322 
一 0. 00039687 
0. 01003684 
0. 02150465 
一 0. 00000000 
一 0.03436547 
一 0.02581339 
.00166661 
一 0.02527010 


> 





一 h(37) 
一 h(36) 
一 hk35) 
一 Ph《34) 
一 hf433) 
一 h(32) 
一 31) 
一 ht30) 
一 429) 
一 人 28)》 
一 hk(27) 
一 hk26》 
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hl15》 王 一 小 05508474 一 hk25) 


he162 一 站 ,04266523 一 he2d) 
ht173 一 0. 19663443 ”一 hC23) 
mnK《18》 一 0, 14795751 一 hC22) 
hl19) = 一 0.13046893 ”一 h(21) 
hC20) 一 0. 70000000 一 h20) 


读 波 轿 的 幅 频 响 应 如 图 2 一 6 一 上 4 所 未。 





8 6. 2 ” 频 域 最 小 误差 平方 设计 


一 、 功 能 

用 频 域 最 小 误差 平方 方法 设计 线性 相位 FIR 尾 通 数字 滤波 器 。 

二 、 方 法 简介 

设 认 一 1 阶 FIR 数字 滤波 器 的 单位 冲 激 啊 应 为 hta)， 则 传递 函数 Hz) 为 
再 (z)》 = 立 j(a)zm 


FIR 数字 滤波 器 的 实际 幅度 响应 He) 与 理 息 可 度 响应 Ha 的 误差 机 数 定义 为 


互 一 去 | [ECon 一 本 Co |: da 
好 」_， 


根据 帕 塞 瓦 定 理 ， 误 差 机 数 可 以 表示 为 
天 一 他，|jCa) 一 下 Ca) 有 | 


一 3 | 帮 Ca) 一 站 sa) |2 十 Y 2P3(2) 
其 中 邮 =(CY 一 1)72。 该 式 表明 ,车 要 使 了 最 小 ,必须 选择 Ra) 使 它 与 有 Ca) 对 应 的 六 个 
值 相等 ， 即 产 ( 站 一 PC ,一 MES 扫 册 
为 了 减少 吉 伯 斯 (Gibbs) 效 应 ,通常 在 通 带 与 阻 带 之 间 加 一 个 过 渡 带 (六 和 志 FA) 。 过 
滤 大 函 数 常 采用 三 阶 样 条 函数 ,此 时 庆 波 器 的 系数 为 


Tsinfr( 上 一 门 (WAP]Vzsinrx( 太 十 六 Ce 一 MD 
AD 一 | FFFOGAO7P | fr 一 册 ) ， 0<z 和 WN-1 


过 小 带 函 数 也 可 采用 升 余弦 函数 ,此 时 滤波 器 的 系数 为 
e0s[R( 扩 一 六 ?0 一 M)]sinfrg 天 十 六 ) (na 一 2 加 
了 二 5 GO 一 肌 ) ”osSrsAN1! 
三 .使 用 说 明 
1. 子 贸 数 语句 

void firlsktnyfeyfsstphy) 
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下 ( 放 ) 一 








2 形 参 说 明 

n 一 一 整 型 变量 。 滤 波 器 的 阶 数 。 

fe ~ 一 双 精 度 实 型 变量 。 通 带 边 界 频率 . 

人 一 一 双 精 度 实 型 变量 。 阻 带 边 界 频率 。 

邹 一 一 整 型 变量 。 过 滤 带 函数 的 类 型 。tp=0， 表 示 升 余 弱 函数 ; t 节 之 1， 和 表示 印 阶 
样 条 函数 。 

h 一 一 双 精 度 实 型 一 维 数组 ， 长 度 为 Cn 十 1)。 存 放 FIR 滤波 器 的 系数 。 


四 、 子 函 数 程序 (文件 名 :firls.c) 


闪 inelude ”imath. hy 
void firls(nyfeyfs,tp 小 ) 
int ntpi 
double ftc, 臣 ,hL]; 
{ double 雪 ，fr; 
YD 刘 1s() ywgt(D7A 
和 一 皇 一 下 
位 一 把 十 fei 
lsghny,fr7y 
WwWgtChonytpy fg 


statie Yo 过 1sfh nyfe》 
int 有 
double fc ,hj 
{ int iymyn2， 
deuble gamypili 
Di 一 44, 曲 # atanf]. 站 7) 


m 一 只 /2 
atm 一 ny/2.0; 
习 2 一 (一 1)72; 


让 《 钥 一 一 am ) bmj 一 人 
for 站 一 0Oi< 一 n2ji 十 十 ) 
《一 Disxf 一 arm)y 
h[i] 一 sin(fe xq?7qi 


static woid wgtkhnytpftq) 
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int mtpby 
double 和 ,hi 
{f int is 
double qQamspiygzywti 
pi 一 4.0>yatatn《1 ,站 ); 
妃 一 Pixfai 
am 一 妇 /2. 0; 
if fta 一 一 自作) yeturnt# 
iftbp 1 一 0) 
{ for 人 一 Ori<atm 和 十 十 ) 
{ qdl 一 gx 人 一 ammytpi 
WwWt 一 pow(sinfqly7qlytp); 
hfi 一 wtxh[i]y 
} 
else 
(for (一 0ii<armii 十 十 ) 
(WwWt 一 COSCqx 《一 arny7)j 
让 【fabs(wt) 盖 1.0e 一 6 ) 
{wt 一 Wi 一 powfC#x 反 癌 一 am))277; | 
ejse 
{ wt 一 Pi/4.0f } 
hi 一 wtxnho] 


} 
】 
fcer《i 一 Hi<ami 十 十 ) ， 
{hEn 一 可 一 hi]; ) 
五 、 例 题 


下 面 给 出 主 函 数 程 序 ， 它 调用 firls.e 子 函 数 。 通 过 人 机 对 话 ， 它 可 以 设计 线性 相位 
FIR 低 通 数字 滤波 器 。 下 面 对 输 入 参数 进行 说 明 ; 

n:， 汪 波 器 的 阶 数 ，f;， 采样 频率 ;fce: 通 带 边界 频率 ! fs : 阻 带 边界 频率 ; tp: 样 条 
函数 的 阶 数 ;fname :， 幅 频 响应 文件 名 。 

主 函 数 要 调用 计算 滤波 器 频率 响应 的 函数 gain()， 参 看 第 二 篇 &4.1 节 。 
主 熙 数 程序 (文件 名 :firls.my): 

并 include "stdio, hy 

并 inelude ”了 irls， cy 

并 include ”区 ain cy 
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maint 7) 
{ int ijnarn2ytpy 
double ffcyfs freqi 
doubte h[100],cL100],x[300],y[300]; 
cbar fname[40]; 
FILE * 本 p; 
ef1 一 0. 0; 
printf(input the filter order nn 3 
scanfgn omdw yi 区 ny 
Printtkwinbut bassband cutof 人 ff frequrney fen 7) 
Scanfgn” 的] fc)i 
printfKxinput stopband edge frequrncy fs\n") 
scanffn o8] 和 ,名 fs)， 
printf(input sample frequrney fn ys 
scantkn 0] 和 RD 
fe 一 fcAfs 
经 一 后 
brint 克 input the order of spline nn” ) 1 
Scanfk 5odn ytp)j 
firlsktayfcftsytpyhys 
Printf Cn FIR digital filtervn”) 
printfgy # 关 关 兴 impulse response 闪闪 头 DAN 35 
n2 一 ny/2 
for《i 一 0 一 n20 十 十 ) 
{ 一 一 全 ， 
brintfty hh 由 2d) = 站 12.81 一 Rh 由 2dysn" yinhri] jy; 
} 
brtintf (ninput 和 le name of frequercee responseNny 7) 
scanffr Js tname2f 
证 人 ftp 一 topenftname rw 一 一 NULL 》 
{ printt(reannot Open this ileny 
exXitK17y# 
} 
gainghyentyxyy300，271 
for (0 一 Di<3001i 十 十 ) 
{ ftreq 一 0 和 5#i72993 
fprinttegip 7 反 考 % Sn freqayx[i]7s 





feiose ftp); 
} 
例 : 没 计 一 个 20 阶 的 FIR 低 通 数 字 滤 滤器 ,其 通 带 边 界 频率 为 0. 2, 阻 带 边 界 频率 为 
0. 3, 采 用 一 阶梯 条 国 数 作为 过 滤 带 。 选 择 参数 mn 一 20, fc 一 0.2, fs 一 0.3,. ff 一 1， tp 一 1。 
运行 结果 : 




















滤波 坷 的 系数 为 
RE DO) 一 0.D0000000 一 PhO20) 
hl1) 一 0.00386543 一 hGi9) 
和 (2 一 一 0 00000000 一 OOL8) 
ht 3) 一 一 0.01672869 一 h(17) 
Bf 4) 一 四 00000000 一 hhI16) 
h(5) 一 0.04052847 “一 ht15) 
hf 6) = 一 0.00000000 ”= hfl4) 
hC7) = 一 0.09107840 二 ht13) 
hf 8) = 0.00000000 一 hdl2) 


h(9) 一 0.31309968 一 hfl1) 
h(10) 一 0.50000000 = 一 h(10) 
泪 波 器 的 幅 频 响应 如 图 2 一 6 一 5 所 示 。 


增益 (dt) 





图 2 一 6 -5 低 通 FIR 数字 滤波 器 的 幅 频 响 庶 


$ 6.3 切 比 雪夫 盘 近 方法 


一 、 功 能 
用 切 比 雪 去 最 大 误 莽 最 小 化 准则 ， 设 计 线 性 相位 FIR 多 带 数字 证 滤器 、 微 分 器 和 和 希 
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尔 伯 特 变 换 器 。 该 方法 也 称 为 Parks-MecClellan 算法 。 
一 、 方 法 简介 
设 六 一 阶 FIR 数字 汪 波 器 的 单位 激 响 应 为 瑚 (aa)， 其 传递 函数 责 (z) 为 
囊 (z) 一 了 > 及 (2 
证 计 线 性 相位 FIR 让 波 器 的 针 比 雪 去 通 近 方法 由 以 下 步 又 组 成 ; 
1，FIR 数字 滤波 器 的 频率 响应 
线性 相位 FIR 数字 泪 波 器 的 频率 响应 为 
有 (er] 一 末 (ao 已 全 -全 
式 中 实 函 数 五 (四 是 滤波 器 的 幅 频 响应 。 工 =0 或 1.。 当 产 (为 偶 对 称 时 , 工 =0550a)y 为 奇 
对 称 时 民 =1。 
四 种 情况 的 幅 频 响应 豆 (o) 为 
再 ka) 一 人 >; 罗 (MaJcos(3ab] 


情况 2，ACn) 为 颂 对 称 ，N 为 偶数 
五 (ao) = > 5Cayeos[(a 一 于 ?四 
情况 3; Ra ) 为 奇 对 称 ，X 为 奇数 
Do) = SooDsincom 
情况 4:5Cn) 为 奇 对 称 ,N 为 偶数 
再 (am) 一 doosin[G 一 于 on 
应 用 币 单 的 三 角 恒等式 ， 可 以 将 上 述 公式 写成 如 下 形式 


《18 


























情况 1; 百 (a) 一 “他 ，G(pnycos(nzo) 
Jr 一 1 
情况 2 妃 (w) 一 cos( 呈 ) 之 ， 五 (acoskzaa》 
《NM 一 33 
请 襄 3: 召 (o) = sin(ow) 字 1 Ena)cos(zaa 
这， 
情况 4， 玖 (mw) 一 sin( 7 ) 之 王 (i)cog(7aoo) 


击 此 可 见 , 豆 (o 可 以 写成 丽 项 乘积 的 统一 形式 , 即 
盏 (om) 一 如 Co) 三 fo) 
其 中 尽 (由 9 是 wo 的 固定 画 数 ,P(o) 是 余 区 函 数 的 线性 组 合 。 
2.，、FIR 数字 滤波 器 的 设计 转换 为 切 比 雪夫 通 近 问题 
设 理想 幅 频 响应 为 吾 s(o) ， 近 误差 正 辑 权 函 数 为 克 (w)， 于 是 用 瑟 (o)? 通 近 瑟 。 
(中 的 误差 冰 数 瑟 (o) 定 义 为 
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问 (a) 一 厂 (ow)[ 王 so) 一 互 (oo)] 
将 吾 (o 一 息 (o)P(o) 代入 上 式 ,并 令 互 :ao) = 瑟 s(o)y7Q(o) 秦 (o) = 丈 (@)Q@(o)， 则 
有 
fa) 一 达 (o)[ 瑞 so) 一 已 (o) 
这 样 ,FIR 数字 滤波 器 的 设计 可 归结 为 切 比 轨 去 还 近 向 题 , 即 寻找 已 (w) 的 一 组 系数 a(n)、 
5 .ca) 或 Cr) ,使 在 各 逼近 的 频带 上 ,() 的 最 大 绝对 值 达 到 最 小 。 若 用 上 中 五 (ww) | 表 
示 这 个 最 小 值 , 那 么 切 比 雪 去 遥 近 问题 可 表示 为 
由 达 (o) 半 王 tain Cmax| 克 (ow) 人 
其 中 4 表示 各 频带 的 并 集 。 
3, 求解 切 比 雪夫 迁 近 向 题 
依据 交错 定理 , 诬 用 Remez 多 重 交 换算 法 ,可 以 有 效 地 求解 上 述 切 比 雪夫 和 逼 近 癌 题 。 


三 , 司 用 说 明 


1. 子 函数 语句 
void fireadkny:typeynbands ,jgridyedge ,fxywtxh) 

2， 形 参 说 明 

n 一 一 整 型 变量 。 滤 波 器 的 阶 数 。 

type 一 一 整 型 变量 。 滤 波 器 的 类 型 。 取 值 为 1、2 和 3， 分 别 表示 多 带 滤 波 器 、 微 分 
器 和 和希 尔 伯 特 变换 器 。 

nbands 一 一 整 型 变量 。 滤 波 器 的 频带 数 ， 包 括 再 带 和 阻 带 。 

lgrid 一 一 整 型 变量 。 分 格 密度 。 该 值 为 0 时 ， 程 序 自动 置 为 16， 

edge 一 一 双 精 度 实 型 一 维 数组 ， 长 度 为 2 * nbands 。 滤 波 咒 各 频带 的 下 边界 和 上 边 
界 值 。 程 序 中 把 频率 值 归 一 化 玫 0. 5。 

让 一 一 双 精 度 实 型 一 维 数组 , 长 度 为 nbands, 滤波 器 各 频带 的 幅度 值 . 对 于 微分 器 ， 
则 表示 斜率 值 。 

wtx 一 一 双 精 度 实 型 一 维 数组 ， 长 度 为 nbands 。 滤 省 器 各 频带 的 加 权 值 。 对 于 微分 
器 ， 加 权 函 数 反 比 于 频率 值 。 | 

h 一 一 双 精 度 实 型 一 维 数组 ， 长 度 为 人 an 十 1)。 存 放 FIR 滤波 器 的 系数 。 


四 、 子 若 数 程 序 ( 文 件 名 :fircad. ce) 


并 inelude "math. hy 
##include "stdio, hy 


vcid firfcadfnytypeynbands ,lgridedgeyfxywtxh) 





int nytypeylgrid ,nbancds; 

doeuble h[] ,fx[Jj,edge[,wtx[]) 

{ int jy kix,nzsnegynnml,kupnfcnsyngrid 
int iext[67J,band,noddnzmjynf2jynf3j; 
double pi,xtydevpi2ydelf ,fup temp change3 
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double ad[67],x[67],y[67J,alphaL67] 

doubjle grid[L1046],des[1046],wt[1046],deviat[11.; 
double eff()，wateC7s 

void renntezf 7) 

Pi 一 40x#atangK1.07; 

Bi2 一 20x#pi 

让 《nbands < 一 0 和) nbands 一 1; 

让 《grd < 一 0) ]grid 一 16# 


ne 一 ]; 
让 (type 一 一 1)》neg 一 01 
nodd 一 mn/2y 


nodtd 一 mn 一 2#nodd 
hfcns 一 mA2 
ii( 《nodd 一 一 1]》 &R& tneg 一 = 0) ) hnfcns 十 十; 
gridafl] 一 edgeLl]y 
det 一 terid + nicnsy 
deif 一 0.57delfy 
证 人 neg 1 一 0) 
{ 诗 (edgeLl] < del) gridL1] 一 def ) 
j 盖 1 1 一 1 
band 一 Ti 
de 
{ fbp 一 edge 刀 十 1]# 
do 
{ temp 一 grid[j]js 
des[ 刘 一 e 红 (temp ,fband ,type75 
wt[jj 王 Wateftemp ,大 ,wrtxybandtype)f 
j 十 十 
gridD] 一 temp 十 delf; 
while 《gr 这 [ 半 所 一 和 bp) 
grid[j 一 1 一 fap# 
des[j 一 1] 一 effffup ,fxyband type)# 
wt 站 一 1] 一 wateffupyfxywrxybandvtype)i 
band 十 十 3 
1 十 = 23 
并 《band 一 一 nbands》 gridUjj] = edgeflj; 
while (band 一 一 hbhands》， 
ngtid 一 ] 一 15 
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这 (neg 一 一 nodd) 名 个 (gridLngrid] 人 > 《0.5 一 de 》 ngrid 一 一 
iL (neg < 拉 一 站) 
1 让 knodd 上 = 1) 
Tor 和 一 1 和 < 拓 一 agrid 和 十 十 》 
1 change 一 Cos(Cpix grid[j])i 


des[1 1 7 一 hanmgei 


四 
wtL 关 一 hangei 


} 
else 
{ 放 (nodd (一 1) 
(for 0 一 1 =nearid 守 十 十) 
{ change 一 sinfpix grid[Li jl); 
des[j| 7 一 change; 
wt[ 关 一 changes 


昌 
else 


1 for (一 1 二 一 ngtid ij 十 十 ) 





{ changa 一 sinfpi22x<EridL]); 
desli] /一 changey 


wt[， 其 < changes 


termb 一 《agrid -1)7ACCdoubleynfens)s 
for 人 和 二 1 一 ntcns 引 十 十 》 
txt 一 1 一 1 
iext[i] 一 xtxtemp 十 1.0; 


} 
iextLnfcns 十 1] 一 mgrtiqdy 
nml 一 micns 一 1; 
nz 一 nfens 一 135 


remez(nfcnsyngrid gdevyad,Xyyyalphaygridyqdesywtyiext); 
让 4neg 过 = 0) 
《让 (nodd 二 一同 ) 
1 EL 一 水 25*alphaLntcns]; 


for 如 一 2 和 < 一 nml1ij 十 十 ) 


| nzmj 一 nz 一]; 
nf2j 一 nfecns 十 2 一 ji; 


hp 一 025r* (alpha[nztmj] 十 albhaLnft2j]); 
} 

hnfens | 
} 


else 


一 0.5xalbha[LI] 十 0.235*#alpha[2]; 


ffoz 自 二 15< 一 nmli 十 十 ) 





{ nzrmj nz 一 ] 
hpDJ 一 六 5xralphalnzml]， 
} 
PhEnfens.] 一 alpha[1] 
else 


{ 让 (node 一 0 站) 


{《hLl] 一 D25xalphalnfecnsj， 
hfL2] 一 0.25xalbha[ntmi] 


fer 一 3 一 nml1i 十 


) 





{ nztnj 一 hz 一 j; 
nf3j 一 nfcns 十 3 一 有 


hDO] = 0.25 *《atphaLnzmji 一 alphafnf3j]); 


} 
hlLnfensj] 一 05xalpha[l] 一 025xalpha[3]; 
htnz] 一 0.0) 
} 
else 


(PhLi] 一 人 25*<albhafnfcns]; 
for 人 一 25< 拓 一 nm1 订 十 十 》 





{f nzmj 一 nz 一 ji; 
nt 一 nfcns 十 2 一】 
h[ 让 一 0. 35 < 《aipha[nzmj] 一 alpha[nf2i); 


hfnfcns] 一 0.5*aiphaLl] 一 0.25*alphaf[2]; 
} 
} 
PrintfC nn 7 
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for 和 一 19 拓 一 70; 和 十 十 ) 
{ printTC 站 


printtt An Finite Impulse Response [FEIRJ7 7); 

printf (An Linear Phase Digitsl Filter Designw ) ; 

brintf Cn Retrnez 已 xchange 各 lgorithmsn ”75 

证 ftype 一 一 137 printff” wwn handpass fterwn” 7 
i 《type 一 一 2) Printff va differentiatorvny ) 4 

让 (type 一 一 3)》 Printff At hilhezrt transfortnersn )5 
brinttfw Am filter order 一 5%dn 一 1)5 

printtfwn 关 关 其 关 尖 jpulse response 共 关 关 关 着 AN) 


for 0 一 1 一 ntfensyj 十 一 ) 
{ 一 卫 十 1 一 外 


这 〔 neg 一 一 站) 
《Printfen RhK%2d) 一 上 44 时 一 hC%3dyn ,jj 一 1,h0jk 一 1 
hLkj] = hUi]; 
} 
主 Cneg 一 一 1) 
{printfCw RhC 站 2 一 站 14.81 一 一 hC 冯 3d)xn ,一 1 让 一 1)4 
hk] = 一 hD]; 
} 
】 
让 ( (neg 一 一 1) ggCnodd 一 一 1) 》 
{ Printf Cn R28) 一 昕 1 8 人 nr nz 一 1 0.073) 


for 息 王 Dj<mnj 十 十 》 
{ hb 了 = 一 hD 十 1j; ) 
hn 一 总 
for (kk 一 1jk< 一 nbands ;kk 十 一 4》 
(Kup 一 下 十 3 
证 《kup > mbands)y kap 一 nbands; 
Print nn ”1 
foer 人 一 K3j< 一 kup5 十 十 ) 
{ pzintfe 如 so%34 "Band” ,2 
Printt tn lowetr band edqge 8 
for 0=Kji< 一 kupjj 十 十 ) 
{ PrinttfK “的 14, 7 让 edgeL2xj 一 1] 3 
Printft(" An Upber hand edge” 7) 
for 昌 一 EE 近 一 Kupii 十 十 ) 
{ printfC “的 14.7 二 ”edge[2x 订 73 
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让 Mtype 上 一 2》 
{ pittt sn desired value  ”) 
for 司 =k;j< 近 一 kupij 十 十 ) 
{ Printt( “的 14, ?下 ”xD 
放 (type 一 一 2 
{ Printft An qQesired 8lope “)3 
for 人 一 区 品 近 一 kupj 十 十 ) 
{f Printi 站 14.71 ”人 站 ) 
} 
Przrintfky An weight 3 
for 人 一 kj 入 一 kupjj 十 十 ) 
{ Printf( ” 纷 14. 7 ”swtxD])y } 
for 人 一 丰 jj 所 一 Kop 旺 十 十 ) 
{ deviat[ jj 一 devywtxij]， } 
brintffn deviation 
for 本 一 上 kj< 一 kupj 十 十 》 
f PrintfC ” 014. 7 ”deviat[D] 3 } 
这 《type ] 一 1)》 continoue; 
ior 全 =kjj<< 一 kaupj 十 十 ) 
{ deviar[ 讨 一 20.0xlogl0kdeviatLj] 十 1 } 
printf sn deviation in db 3 
for 人 旭 一 Eij< 一 kupij 十 十 》 
{ PrintfC ” 听 14. 7H :qdeviat[] 7) )} 
》 
fer 人 一 1j< 拓 一 nzjj 十 十 》 
{ 这 一 iext[]s 
gr 过 [jj] 一 gridLix]; 
brintt (7 pn extremal frequencies 一 一 mnaxima of the ertror curvyevny 》; 
for 人 二 19< 一 nzij 十 十 ) 
{ printf(” 和 12. 7 grid[j]>; 
让 全 各 5 一 二 0) printf(snr); 
Printt( nnwna 5 
for 如 一 1j< 所 一 709j 十 十 ) 
{ PrimntfiCe 关 ” 3 
Paintffysmw 7 
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static double eff(freq ,tx band tyPey) 
deuble freqyfxfL ] 
int banqd ytypes 
{ dgoupble effiv: 
effv 一 《type 一 2 )?fxfband] :; 苹 Lband]xfeqy 


Tetutymfeftfv yy 


static doubje wate (frea ,fxvwtx band typPe) 
int banqd ,tyPei 
doupble freq，fxL ],wtxL ]; 
{ double wate-v; 
证 (type ] 一 2 
{ Wate-y 一 到 tX[band]i } 
else 
{ 许 人 fxz[hband] 人 > 一 0.0001 
{ wate-v 一 wtx[band /freqi } 


已 18e 


-fwWate-vy 一 wtx[hand]i } 


tetutrnfwate-v)i 


static void retmez(nfcns ngridypdev ,adxyyyatphaygridydes,wtyiext) 

int nfcnsyngrid iext[ 1 

double #Pdevs 

douple ad[],x 中 ,y[,aiphatL],gtid[],des[]ywrtf]; 

{ int j, 攻 ,1 涉 1nuynzzyjxt,jetyknzklowynutynitet,itrnmaax ,jchnges 
int nzykubynautl,luck,nzzmj;knntm] ,nzmj,kkk,jml ,jplvnt1jy 
deuble d 旺 ,dak ,pi2ydnaumsddqenydtemp yyrnzylyerrs 
double aa,bbyen, 攻 ,xtyxtlyxeyfsh ,gtempdelfs 
double comp 一 0.0deyl 一 一 1.01 
double aL67],p[67],q[L67]; 
double df 人 ) gee(C)i 
yoid ouchfDi 
pi2 一 8.0xatan1.023 
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ttTmaX 一 25 
Dz 一 nicns 十 1 
ngss 一 nfcns 十 25 
Ritef 一 了 们 ; 
whbile (1 > 
{ iext[nzz] 一 ngtid 十 1 
miter 十 十 # 
证 《piter > itrmax) gote 19， 
fer 得 王 1 一 nzij 十 十 ) 
{ jxt 一 iext]# 
grid[jxt]# 
qternb 一 coskqtemtp 基站 2 


dtemp 


x[i] = dtermmp: 
} 
jat 一 (afens 一 13A15 十 1 
fer 但 一 1 一 nzjj 十 十 ) 
{ad0 一 dynzyjet xy } 


dnum 一 0. 0# 
qdqden 一 由 .0 
长 一 1; 


for (一 亲 < 一 nzj 十 十 ) 
{f1 一 iext[U]; 
dtemp = ad 站 j]xdes[i]; 
daum 十 一 dtempPi 
dternpb 一 【fdouhble)k) x*ad[j]Awt[ij 
dden 十 一 dtermp; 


kk 一 0 一 Ki 
} 
x* bdev 一 dnumydden 
下 一 1; 
主 (《*pduey 人 > 0.0 nu 一 一 14 
# bdev # 一 《一 (dotbleynuy)i 
攻 一 ny 


for 站 一 1 站 <=nziji 十 十 ) 
{ 1 = iext[]; 
dtemp 一 〔 (qdouble)k) * 〔xDpdevyywtDl]; 
y[i] 一 des[]] 十 dtempi 
E 一 一 区 ; 
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} 
让 【<#Dpdev < 所 一 devli) 
《ouUcnCniter) 
SoDto 193 
} 
dev] 一 # bpdev; 
jchnge 一 0; 
kl 一 iextLl]; 
knz 一 iextLnzj]; 
kiow 一 0 
hut 一 一 nu 
] 一 1# 
whilge(1) 
《让 全 一 一 hzz) ynz 一 compy 
这 《和 之 一 nzz》 break 
kup = iext[i 十 1]; 
] 一 iext[Lj 十 1; 


hut 一 一 nuti 
于 (0 一 = 一 2)y7lT 一 cotnhp; 
comP 一 khqevy 


让 人 > 一 kupy goto 13; 

err 一 geeflynzyad xysyygridy7i 

err 一 (err 一 des[1j*<wt[l]; 

dtemp 一 〔【 (double)ynut ) * err 一 cotmp# 
计 《dtemp < 所 一 如 个 ) goto 134 


comp 一 〈(qouble)ntut # errs 


while( 1 ) 
{ 1 十 十 
让 人 L 和 > 一 kupy break; 
err 一 geefl,nzyad,Xxyygrid73 
err 一 《err 一 des[]]) * wt[lji; 
dtetmp 一 (〔douhble)nut # etr ~ 一 compy 
让 (dtermp < 一 9 0) hteakj 


cotmp 一 〈doubleynut 关 ETLi 


iext[] 一 上 一 1 














13 ， 


14:; 


] 十 十 
klow 一 1 一 1 
jcehnge 十 十 : 


eGntiTnue# 


1 一 一 # 
to 
{ 1 一 一 
证 人 所 一 low7 goto 16; 
et 一 geeflynzyady xyygrid)j 
err 一 《err 一 des[]]) sx wtL]; 
demp 一 《doubleynut * err 一 commp 
迁 《dternb > 一 0.0) goto 145 
} While (jehnge < 二 0)# 
klow 一 iext 门 ]; 
j 十 十 # 


continatey 
comp 一 〈doublie?nut # erTy 


While( 1》 
{ 一 一 
计 (< 一 Klow) breaky 
err 一 多 ee 人 fl,nzyad,Xyyygrid); 
ery = (〔err 一 des[1]) * wt[n; 
dtemp 一 《double)nut # err 一 connbi 
证 《dtemp < 一 0.0) breaki 
comp 一 《doubleynnat # erT } 
klow 一 iext[j]; 
iext[j] 一 1 十 1; 
十 十 ; 
jchnge 十 十 } 


Aontinuei 


1 一 iext[] 十 1 
证 (jchnge >> 0) geto 12; 
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} 


ti 十 十 
诗人 L > 一 kup) 
{ klow 一 iext 和 ]， 
3 十 十 


continuey 


etr 一 geedl,nazyad ,xyryygrid2s 

err 一 《err 一 des[1])* wt[l]i 

寻 temb 一 〈double)nut x ert 一 comp# 
这 《dtetmp < 所 一 0.07》 goto i73 

coltnp 一 〔〈double)nut * erT; 


gotc ]1# 


让 《j] < 一 全 z2》 
{ 证 (kkl > iextLl]y kkl 一 iextLl]) 


} 


这 (【knz < iext[Lnz]) knz 一 iextlnz]; 


nutl 一 nuti 


nut 一 一 Hut# 
上 一 0) 
kup 一 长 1; 
comhb 一 ynz xx〔]1.000017; 
luck = 1 
do 
{ 1 十 十 ， 
这 人 关 一 Kup) 
《luck 一 6; 
goto 18， 


} 
ert 一 Eeetnzvad ,xy rid)y 


erT 一 (err 一 des[H]) * wtf]; 


dtemp 一 (doubie)Jnut x err 一 cotmnp 


} whiie 《dtemp < 一 0.0) 
cotrp 一 《double)raut # Erti 
] 一 nzzy 


&oto 11+ 


证 (iuck > 9) 
{kn 一 iext[mnzz]; 











for〈j 一 13j< 一 nfcns 和 十 十 ) 
{ iext[ 让 一 iext[Lj 十 1 } 
iext[nz] 一 kn; 
eontinues 
证 《ceotrnp 2 y]127y1 一 eoftnpi 
kl1 一 iext[nzz]; 


1 一 ngrid 十 1; 

Kklow 一 knz; 

nut 一 一 nutii 

comp 一 y1#( 1.0000173 
de 


人 1 一 一 
-主人 < 忆 一 攻 omw)y breaky 
eIT 一 geefklnzyady xyyygTrid7 
efr 一 《err 一 des[]]> = wtLl]jy 
dtemp 一 〈double)nut * err 一 cornpi 
} while 《dtemp < 一 站. 0 
计 (人 > 攻 low) 
{ j 一 mzzs 


comp 一 〈qouble)nut # ettr# 


tuck 十 一 104# 
goto 15; 
} 
证 (luck 一 一 6) 


{ 让 《jchnge > 0) 
{ continue! } 
lse 
{ break，)} 
} 
foer 人 一 1 和 一 hfcns 十 十 》) 
{ 1ZZImj 一 nzz 一 j# 
nz2rnj 一 nz 一 jj# 
iext[nzzmj] 一 iextfnznnj]i 
} 
iext[l] 一 上 13 
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19 : 
nrm1l == mnfens 一 1 
fsh 一 1.0e 一 06; 
gtemp 一 gridLlL]; 
xlLnzz] 一 一 2.0; 
cn 一 2xrntfcns 一 1; 
delf 一 1.07ens 
1] 一 1; 
kkk 一 0 
让 (gridLl] < 0.01》& 太 《gridLngrid] > 0.49) ) kkk 一 1; 
让 infjcns < 天 一 3)》 Kkk 一 1 
计 (kkk 1 一 1 
{ dtemp 一 cos(pi2 * grid [1 
dnum 一 cos(Cpi2 x grid[Lngrid])7; 
aa 一 2.07Cdtemp 一 dnutm 7 
bb = 一 (dtemp 十 dnumy7Cdtemp 一 dnamy: 
} 
for j 一 11< 一 nfcns 刘 十 十 ) 
(ft 一 ji 一] 
世 关 一 delf， 
xXt 一 《0O5(Pi2= 萎 ?3 
证 《kkk + 一 1 
{ xt 一 《xt 一 bbyyaas 
xtl 一 SqTtK1. 和 一 XXt 关 Xt 7》 
娘 一 atan2Kxtl1,xtyApi2 


} 
while (1l) 
fxe 一 xl 


许 (xzxt > Xe) breaks 
《Kxe 一 xty < fsh) 


(fa[j] 一 yY 名 JJ; 
goto 110# 
} 
1 十 十 ; 


} 
让 《CCxt 一 xe) < fshy) 
{ ar = y[]， 
让 人 导 1)1 一 一 # 
2586 








continue， 
gridL1 ji 一 ft 
a[j] = gee(lnzad, xy7vgrid ys 
]10: 
让 侍 人 1)1 一 一 # 
} 

gridL1] 一 gtemp; 
ddqen 一 Di2ycnl 
for jj 一 1 一 nfens 引 一 十 ) 

{ dtempb 一 日 0 
qdautm 一 ] 一 1 
dnum # 一 dden; 

诺 (naml 盖 1) 
{ for ( 攻 一 1 和 KE 一 nnmal5E 十 十 ) 
{ dak 一 a[k 十 1]; 
dK 一 攻 ; 
dtetmp 一 dternp 十 dakx ecos(dnourm xdk) 
》 
} 
qdtemp 一 2.0xdtemp 十 a[1]' 
alphaf] 一 dtemp; 
! 
for 1 一 2 和 < 一 nfecnsb 十 十 ) 
{ alpbha[i 训 < 一 2.0Aens 》 
alpha[i] /一 eni 
让 (kkk ! 一 1) 

{1p[l] 一 2.0xalpha[ntens]xrbb 十 aphafnmnl1j; 
pEL2] 一 2.0xaaxalpha[nfcns]i 
qLl] = 一 aphafnfcns 一 2] 一 alpha[nfcnsjs 
for 站 一 2 过 一 niml 和 jj 十 十 》 

{ 证 站 之 一 nml) 
1 aa sx 一 站 53 
bb # 一 05# 
} 
pbUi 十 1 一 00 
for 企 王 1 二 一 基 攻 十 十 ) 
{ akj = PCkJi 


- -一 一 -一 一 = 一 一 一 一 wire 人 本 ri 下 IT 用 





pk 一 20x#bbsafki 


} 
p[2] 十 一 a[l]x 2.0xaai 
jml 一 ] 一 1; 


foer 在 二 1 站 < 所 一 jmsK 十 十 》 
fpPkk] 十 一 q[LE] 十 aaxa[k 十 135 ) 
jpl 一 ] 十 1 
for 人 kk 二 3 让 < 所 一 jp1 下 十 十 ) 
{ pg 十 = 一 8a*a[E 一 1]; } 
证 《一 一 nmiy continuei 
for 估 二 1 站 所 一 jK 十 十 ) 
{qLk] = 一 a[k]; ) 
nflj -= pfens 一 于 一 和 
qLL] 十 一 alpha[nft1i]y 
中 
for (一 1ij 一 htcnsjj 十 十 ) 
{ alphaDi] 一 Pb } 





} 
让 (afens < 一 3) 
{ alphalnficns 十 1] 一 0 
albhalnftcns 十 2] 一 0.0 


static doubie dfKEnzy msxy) 
int 上 ,mynzj 
dormble x[] 
《 inmt j,1; 
dotble qdvs 
dr 一 1.0; 
q 一 xlk; 
for 必 一 1 一 mi 二 十) 
{ fir 一 1 一 nz 和 十 一 my) 
{ 这 1 一 一 大 ) eontinues# 
dr 一 2.0x#dvrxr(kq 一 xj]); 
} 





} 
dv 一 1.07dv， 
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Teturntddr]i 


} 


static dotible gee(knzyad,xyyyErid》 
int Enzs 
double adb],x[y[],grid[]; 
{ int ji 
double cd ,pxftypi2ygeevs 
凡 一 曲 一 0.0; 
Pi2 一 8 如 关 atangKI. 0 
革 一 grid[ 攻 ]， 
xf 一 cosfpi2 xxf); 
for(i 王 1jj< 近 一 nzij 十 十 ) 
{e 一 邓 一 xD]; 
c 一 adfj]/esi 
旭 十 一 6 
P 十 一 cxy[jj]; 
} 
geev 一 p/d; 
YetUrnKEgeev7 


} 


static void ouchknitetJ 

int nitery 

{ printffesn 关头 关 其 关 共 类 关 基于 ailureto ConYerBE 关 基 其 闪闪 着 半 % nn )# 
printf(* nprobable cause is machine rounding erroran)5 
printft"smntomber of iterations 一 邮 dr niter)j 
Printff" nif the number of iterations exceeds 377)3 
Printffr atbe design may be cortect，but should be verifieqd" 7) 
brintfCr with an ET D) 3 

} 


五 、 例 题 


下 面 给 出 主 函数 程序 , 它 调用 fircad() 子 函数 。 通 过 人 机 对 话 输入 参数 后 , 它 可 以 设 
计 线 性 相位 FIR 数字 滤波 器 、 微 分 器 和 希 尔 伯 特 变换 器 。 此 处 要 调用 计算 汪 波 器 频率 响 
应 的 函数 gain()， 参 看 第 二 篇 $4.1 刷 。 

主 函 数 程序 (文件 名 :firead. my): 

并 inelude "stdio. hy 
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提 imelude "frcad. cy 

林 include "gain ev 

mainf 

fint ijbaytypeylgrid :nbands: 
double fxr30],edgelL30],wtx[L301 
qouble freq,hfLi50j],cL150],xL300],yL3004; 
char fnamel40]， 
下 ]LE 六; 
cL1|] 一 0.05 
brintftinbut the filter ordery sn 3 
scanfit” %%d Rn) 
Printff"input the filter typesn" 7) 


| 


printftgr 1 miultiple Passbandysgtopband fittervn” ?3 

printft” 2 一 differentiatorvtn 5 
brintf(” 3 一 hilbert transform filterwn2 ); 
名 Cart ofdr ytype7ys 
brintff”jinput the humber of bandqs:vn")， 
Scanfi 9dn grnbancds); 
printfC7input the number of grids ,让 0itis16:n7)， 
SCanfifw 的 相交 1grid 73 
折 一 2x<nbandsi 
printfg7inbut the band edgesyn7 ); 
for 与 一 15j< 拓 一 b 要 二 十》 

{ scanffy of , 交 edge[j]); } 
Printt Cinbut the desired response aitmpltitude of each hbands:wn ) 
for 人生 14 之 一 nbandsj;j 十 十 ) 

4 scanfttw 时 ”9 交 fxLi] 7 》 
brintfk”input the Weight of each bands:vnx 》# 
for 0 一 1 < 一 nbandsj 十 十 ) 

{ scanf(” 咯 1f” &wtxLj])，》 
fireadqd (Cn 十 1vtypeyabamnds ,1gtrid ,edge ,fywtxh)s 
-Printif” ninput file name cf frequency responseNn” )3 
Seamffnr os fmamey; 
让 人 《ip 一 fpenffinamew)) 一 一 NULL ) 

{ Ptintffeantot open this filevny 7 

exttrI) ， 

了 

gainrhyesnmy 1 xy 30027)4 
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fer 6 三 0ii<300 拉 十 十 》 
{ freq 一 0.5xi/299; 
fprintfiCftp ,” 妈 圭 olf An ,freqgyx[i); 
} 
fciosekfp7; 
} 
例 1: 设计 一 个 32 阶 的 带 通 数字 滤波 器 ， 其 通 带 为 0 2 一 0 35， 阻 带 为 0.0 一 0,. 1 和 
0. 425~“0.5， 通 带 加 权 值 为 1， 阻 带 加 权 值 为 10， 分 格 密度 为 32。 这 时 输入 





32 1 3 32 
0.0 01 0.2 0.35 0.425 0.5 
0.0 1.0 0.0 
10 1 19 

运行 结果 ， 

滤波 避 的 系数 为 
hK 0 一 一 0.00269911 一 hCG32) 
hf 1l) = 一 一 0.00451944 一 h31》 
pf 2)》 一 0.00818165 ”一 h(30) 
h(C3) 一 一 0.00097323 ”一 h29) 
hb 人 一 一 0.00035092 一 hf28) 
Rh 5) 一 017708742 一 hC273》 
h(6) 一 一 0.01740830 一 hf26) 
hf 9 一 一 0.00261714 一 h(025) 
hf 8 一 一 0.01016807 一 hC24) 
ht 9 一 一 小 03730066 一 hf23》 
ht10) 一 0. 06346405 ”一 (022) 
hftl1) 一 0. 01856136 ”一 hC21) 
hC12) 一 0. 02785976 “一 hhC20) 
hz13) 一 0.04967215 “一 hl19》 
hkl4) 一 一 0.30023050 一 hl8) 
hl15) 一 ”一 0.04071342 ”一 hb(17) 
hl16) 一 0.46270287 一 hl16) 


带 通 数字 滤波 器 的 由 频 响 应 如 图 2 一 6 一 6 所 示 。 
例 2， 设计 一 个 31 阶 的 宽带 微分 器 ， 其 斜率 为 1。 这 时 输入 


31 2 1 0 
0.0 0.5 
1.0 
1.0 

运行 结果 : 
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增益 (dB) 





图 2 一 6 一 5 带 通 TFIR 数字 滤波 器 的 幅 频 下 应 


数字 微分 器 的 系数 为 
hCO0 一 一 0.00062713 一 hk31) 
Ph 1》 盖 0. 00085633 ”一 Rh(C30) 
hf 2 一 一 站 00042419 一 29) 
hk 3) 一 0. 00039902 ”一 PC28) 
hd 一 一 0.00043437 一 ht27) 
hk 5》 一 0.00049969 “一 hk26) 
hK6) 一 一 000059635 一 25) 
DC 7)》 一 0. 00073277 “一 PhC24) 
hft8) 一 一 0.00093003 一 hk23》 
hf 9) 一 0. 00122700 “一 h(22) 
htl0y 一 一 0.00170128 一 Rh21) 
hCGLL)》 一 0.00252723 “一 hf20) 
hfl2) 一 一 0.00416012 一 h(19) 
hl13>》 一 0.00812946 三 hl187> 
hl4) 一 一 002253910 一 hl7) 
hk157 一 0.20266535 一 hC162 


数字 微分 器 的 幅 频 响 应 如 图 2 一 6 一 ? 所 示 。 
例 3: 设计 一 个 19 阶 的 希 尔 伯 特 变换 器 ,其 通 带 干 边界 频率 为 0. 05,， 通 带 上 边界 频 

率 为 0.5。 这 时 输入 
19 3 1 16 
0.05 0.5 
工 . 总 
二 .站 

262 


站 
站 .3 
可 2 
如 .1 
095 1 马 ,2 日 人 名. 革 4.5 
妇 一 化 频率 
图 2 一 6 一 7 数字 微分 器 的 幅 频 响应 
运行 结果 ， 
滤波 器 的 系数 为 1 ， 
ho0 一 沁 有 602620 一 ht9) 
hi 一 0.01417329 一 hl8) 
h( 2) 一 002045244 一 hf17) 
hk 3) 一 0.02873689 一 hl16) 
hf 4) 一 0.03985258 一 hl15) 
h(C 5 一 0.05533330 一 hl1d4) 
h( 6 一 0.07854276 一 hf13》 
hk 7 一 011823756 一 hl2》 
hC8 一 0.20664125 一 hli) 


h(9) 一 0.63475618 一 hCI0) 
希 尔 伯 特 变换 器 的 幅 频 响应 如 图 2 一 6 一 8 所 示 。 


增 荐 人 dB) 





0.2 0 0.4 
归 一 化 直率 


疼 2 一 6 一 8 和希 尔 伯 特 变换 器 的 幅 频 响 应 
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第 三 篇 ”随机 数字 信号 处 理 


第 一 章 ”经 典 谱 估计 
y 1.1 功率 谱 估 计 的 周期 图 方法 


一 、 蕊 能 

用 丈 eleh 的 平均 周期 图 方法 来 计算 信号 的 自 功 率 谱 和 相关 疾 数 。 

二 、 方 法 简介 

设 有 限 长 序列 zfna) Ca 一 0,1N 一 蕊 的 功率 谱 为 38. 。 用 平均 周期 图 方法 进行 
功率 谱 估计 的 计算 过 程 如 下 ， 

1, 把 za 分 成 长 度 为 好 的 玉 段 ， 相 分 段 重 大 党 个 祥 本 ， 同时 对 每 段 数据 加 答 处 理 ， 
这 样 第 ; 段 数据 为 - 

Ta》 一 THA2 十 1 人 0 二 1 和 朵 一 1，0 扫 /二 页 一 1] 

其 中 wa) 为 窗 函 数 ( 如 矩形 窗 、 海 明 竹 等 ) 。 

2 用 FFT 算法 计算 序列 zy 的 工 点 离散 博 立 叶 变 换 成 (有 

及 交 有 ) 一 己 -one 名 ， 0 和 下 二 了 一 1，0 近 1 扫 区 一 1] 


如 果 M 一 工 ， 序 列 (要 补 工 一 好 个 霍 。 
3， 诗 算 周期 图 
号 (人 E) 一 | 瑟 ( 人 (| 0 过 站 过 卫 一 1，0 所 1 二 届 一 1 
4， 计 算 到 段 周期 图 的 平均 值 ， 从 而 得 到 功率 谱 的 估 值 为 


] 寻 : 
9S--(R) 一 雯 记 志 5.0 ，0 雪上 执 工 一 1 
其 中 
帅 一 1 
1 一 ruzz) 
下 一 个 
三 、 使 用 说 明 
1.， 子 函数 语句 
void bmpse(xy*ttneonftttywinyfsrvfreqysxxysdhy》 
2. 形 参 说 明 
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x 一 一 双 精 度 实 型 一 维 数组 ,长 度 为 n。 输 入 信和 号 zfi)。 

na 一 一 整 型 变量 。 输 入 信号 的 长 宁 。 

mm 一 整 型 变量 。 分 段 的 长 度 。 

nfft 一 一 整 型 变量 。 估计 功 率 谱 所 用 FFT 的 长 度 。 它 必须 是 2 的 整数 次 医 且 nfft 
匡 。 


win 一 整 型 变量 。 鹤 函数 的 娄 型 。win 一 1， 表 示 朱 形 窗 :win 一 2,， 表示 海 明 (Ham- 








ming) 窗 。 

上 一 一 双 精 度 实 型 变量 。 采 样 频率 (以 赫 歼 为 单位 )。 

r 一双 精 度 实 型 一 维 数组 长度 为 (32 十 1)。 用 于 存放 相关 郴 数 rG) 的 值 。 

freq 一 双 精 度 实 型 一 维 才 组 ,长度 为 (& 十 1)。 用 于 存放 与 切 率 谱 相 对 应 的 频率 
值 。 


sxx 一双 精 度 实 型 一 维 数 组 ， 长 度 为 (33 十 1)。 用 于 存放 功率 谱 的 信 。 


sdb 一 一 整 型 变量 。 用 于 表示 功率 谱 的 类 型 。sdb=0， 表 示 线 性 谱 ;sdqb 一 1， 表 示 以 
dB 为 单位 的 对 数 谱 。 


四 、 子 函数 程序 (文件 名 :pmpse'c) 


并 inclade ”rmath.bhy 
间 include ”stqlib, hy” 
并 include ?和 手 ， ec” 
veid ptmpsefxynaymynittywinyfsiryfireqysxxysdb) 
int nfftynywinymysdbs 
doubjle fs,x[],rb] ,freqL],sxx[L]; 
{ int ij vs 
int mz2nrdyErmaxynslymnsectPpy 
int nfft21 ,NuamOfSeections ,NumUsed ; 
doeuble u, 世 ,xsutmnottm twopiyrexrmnyimxrmn yxrmean + 
double #Xay # XTreal，# Ximag，# mindowi 
xa 一 mmalloc fnfft x* sizeof(double7) 4 
xteal 一 mallocfnitt * sizeof(double) 7) 
ximag 一 tnalloc(nfft xsizeof(double) Di 
window 一 inalloc(m x sizeof(double》); 
nfft21 一 nfft7/2 十 1; 
NumOlfiSections 一 Cn 一 加 27 ); 
NumUsed 一 NumOfSeetions * (my723 十 避 /24 
3 一 日; 
xsutm 一 避 ,D 
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nsl 一 MumgfSections 十 1 
im2 一 mA23 
fer【 上 一 0 kk<nsl; kk 十 十 ) 
ffor 人 一 Ditm2ii 十 十 ) 
f xafi] 一 x[s 十 ij 
fcr 0 一 0 i<m2y 1 十 十 ) 
f xstuImm 一 XSUm 十 xa[i]， } 
S 十 一 mm2 
} 
xirean 一 xsutmyNumLsedi 
Texinn 一 Xmeany 
Imxtn 一 xrneany 
局 一 《doubleyim 1; 
让 【win 一 一 2 7) 
fu 一 00i 
twopi 一 80xatan1.0)5 
只 一 型 一 1.0 
for 《一 0i<tmii 十 十 ) 
{ window[i] 一 0.54 一 0.46* cos(twopixl 了 TD) 


u 十 一 window[i* window[Li]' 


】 
s 一作; 
for 人 一 0 i<cnftt219 1 十 十 》 
{ sxx[Di] 一 0.0 ) 
m2 一 In/2; 
for fi 一 05i<m2ii 十 十 > 
fxa[i 十 m2] 一 xfs 十 让 
s 十 一 mm2， 
kmax 一 《NumOfSections 十 1)721 
nsectp 一 《NurmOfSections 十 1372， 
nrd 一 Im; 
for 全 一 0 k<kmaxi 天 十 十 》 
{ foer GD 1<ctm25 1 十 十 ) 
tj 一 m2 十 计 
xrealLi] 一 xa[]; 
xitmag[Li] 一 0.0; 


证 《 k 仆 一 一 (kmax 一 1)》&R (nsectp 1 一 NumOfSections) 
{ for Gi=m2i i<cnrd; i 十 一 ) 
{ xa[i 计 一 005 
htd 一 Pt/2; 
} 
fier (ii 一 0ii<nrdfi 十 十 ) 
{ xa[i] 一 xfs 十 训 ; } 
for 1i 一 Di im2y i 十 十 》 
{j 一 ta2 十 1# 
Xteal[j] 一 xXa[i] 一 rextnni 
Xirmag[j] 一 xa[jj] 一 imxrny 
xreatifi] 一 xreai[i] 一 rexrmns 
ximag[ij 一 xafi] 一 imxmn3 
} 
证 (人 忆 一 一 《kmax 一 1 )》 本 Rnsectp ] 王 NumOfSections) ) 
{ for Ki 一 0 i<myf i 十 十 ) 
{ ximag[i] 一 0.0+ )} 
} 
s ==s 十 nrd' 
庄 fwin 一 一 2 
{ for 站 一 0iic 科 ii 十 十 ) 
{ xreal[i] * 一 window[i]; 
ximag[i] * 一 windowlLijs 
} 
让 Km ] 一 Diftt) 
{ fier 在 一 mii<cnftt 站 十 十 ) 
{ xreal[i] 一 0.08 
ximag[i] 一 0.0; 
} 
} 
插 tExreal ,ximag nttt ,175 
for 6 一 14 1<nfft23l; i 十 十 》 
{j 一 hfftt 一 ii 
sxx[i] 十 一 xreal[i]* xreal[Li] 十 ximag[i] * ximagfi] 
sXx[Li] 十 一 xtreal[j] * xtealLj] 十 xitmag[Dj] * ximag[j] 
} 
SXXxLO] 十 一 xtealLO] * xtreal[L0D]# 2.0 
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sxX[L0O] 十 一 泣 magL0]xeximag[LO]x2.0; 
} 
norm 一 20xuxlumDfSections: 
for〔 i 一 0 ji<anfft21; ii 十 十 ) 
{ sxx[i] 一 sxxf]Anorms 
XTeal[i] 一 SXx[Liji 
xitnag[] 一 0.0， 
1 一 ntft 一 j1 
xreal[ 说 一 xreal[Li] ; 
ximag[j] 一 ximagfi] ; 
} 
侍 t(CxTeal ,xirnag ynttt ,一 1)3 
forgi 一 0 i<nfitt21 1 十 十 ) 
fr 人 ] 一 xrealEi_ } 
foer 和 一 0y i<nftt21; 1 十 十 ) 
f freqE] 一 ix fsAfdouhbleynfftts 


这 (sdb 一 一 1) 
{ 证 (sxx[i] 一 一 0.0) sxxf] 一 1,.0e 一 15; 
sxXx[i] 一 20.0xlogl0Csxxbi])， 
} 
} 
他 ee(Kxay)s 


{reefxreal75 
freeCximagys 
freeCwindow)i# 


} 
五 、 例 题 


下 面 给 出 主 函 数 程序 , 它 调 用 子 函 数 pmpse()。 通过 人 初 对 话 输入 参数 后 , 它 能 计算 
功率 谱 和 相关 范 数 ， 同 时 将 功率 谱 数 据 存 人 文件 bmpse.dat 中 。 

例 : 信号 z(i 是 频率 为 了 赫 丝 的 余 站 函 数 

rtiy 一 cosf2rij 厂 ) 

选择 参数 为 : 信号 频率 一 1005Hz， 采 样 频率 上 一 10000Hz,， 数据 长 度 n=256， 每 段 长 度 
mm 一 64，FEFT 长 度 nfft 一 128， 海 明 窗 函数 ， 输出 功率 谱 用 dB 表示 。 
主 函 数 程序 (文件 各 :pmpse. my) : 

##include ”stdio. hy 

#include ”math. hy 

林 include ”pimpse .cy 
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mainf 7 
fint iy mnywinysdbnfttynfft21; 

double fs ,piyfreqL100],sxx[100],rL100],x[512]; 
FILE * fpi 
pl 一 4.0# atanf1.0)7; 
printt 人 ninput the sampte nurmber nne) 3 
scan 的 dan) 
brinttK”"sampling frequency fssn2 7) 
ScanHg 096] 人 tfs); 
prTintf (inptt section size mn )1 
scanff” 9d" 全 m) 
printfKrinput the window type; ] for reetangulary 2 for harmtning\n*); 
SCanff2 0% 吕 7 人 winy# 
printf(”input the size of FFET for spectral estimatevn" 7 
Scan dnfift7s 
Printf ”input type of spectrum; 0 for linear，l for log spec in dBNnyw 7); 
scanf fo 和 ysdb); 
forfgi 一 0 1i<ny ii 十 十 ) 

{xDj 一 cosf2xzpisxix1000/fs); )} 
pmpsefxsnymenftfty win fs,rfreqysxxysdb)i 
nfft21 一 nfftt/2 十 1; 
brintf (mnELog Power Specttutmnin” ) 
printf" An FREQ dB FREQ dB”)3 
Printf 7 FRER dBNnw )， 
for 《一 0; i<<nftt21; i 十 十 ) 

{ printfk” 9%11.11f 0%13, 4 ,freqg[i] ,sxx[Di>; 

这 《人 十 1 上 %3 一 一 0 Printff sa yi 

printfig AnCortrelation Functionsm 34 
Jor G 王 0 i<nfftt21; i 十 十) 

.{ PrintfCr 0 6qd 吃 12. 3e ”yiyrE])i 

让 《fi 十 1)904 一 一 0) brintf(wsn ); 

} 
也 一 fopengk"pimpse .dat yw)j 
for G 一 07 i<<nfft21; i 十 十 ) 

{ fprintf ip 上 冶 11,. 11f%%13. 4lfnw ,freq[i],sxxf]yy) 
flosectpy， 








运行 结果 : 
功率 谱 为 
下 RE 名 dB 上 RP 
站 .六 一 81. 4497 7 了 8&, 1 
234, 半 入 9. 455 各 312, 5 
468.8 一 63. 3798 346, 和 
703, 1] 一 51.54686 7 了 81 2 
9379.5 19. 1047 1015.8 
了 1 了 ,入 3.5113 1250.0 
466.2 一 77.8213 1484.4 
1640, 6 一 了 8. 5615 1718,.8 
1875, 自 一 64.0269 1953. 1 
2109. 4 一 8 6981 2187.5 
2343.8 一 68. 1208 2421.9 
2578., 1] 一 89. 5338 2656.2 
2812.5 一 了 ], 4265 2890. 6 
3046,. 9 一 92.8824 3125.0 
3281. 2 一 73. 8100 3359. 4 
3515. 帮 一 95. 1893 3593, 8 
3750. 昌 一 78. 4665 3828. 
3984, 二 一 96. 7206 4062. 5 
4218, 吕 一 76.5318 4296.9 
4453, 1 一 97. 6235 4531.2 
4687.5 一 77.0846 4765. 6 
4921. 9 一 97.9740 5000.00 
功率 谱 如 图 3 一 1 一 1 所 示 。 
相关 函数 (0 一 64) 为 
人 5,. 00e 一 0 1 4.04e 一 01 
4 一 3.96e 一 器 1 5 一 4. 83e 一 站 1 
8 1. 41e 一 01 9 3.62e 一 01 
12 1. 27E 一 和 1 13 一 1. 22e 一 01 
1 和 一 2 83e 一 个 ] 17 一 1.03e 一 0] 
20 2. 85e 一 0 21 2. 18e 一 1 
24 一 1.79e 一 01 25 一 2.06e 一 0] 
28 RD0Od4e 一 0 29 1.21e 一 0 
32 3. 46e 一 02 33 一 3. 16e 一 02 
36 一 5 92e 一 1 和 2 37 一 1. 99e 一 02 
4 4. 43e 一 02 41 3.1le 一 02 


一 82.8430 156. 
一 81.2332 390. 
一 92.0069 625， 
一 是 . 本 45 品 859. 
21.1584 1093， 
一 21,.7070 1328. 
一 78.8848 1562. 
一 63. 1349 ”1796， 
一 82.6791 2031， 
一 申 日 37 2265. 
一 88. 1142 2500， 
一 70.4371 。 2734. 
一 91.8998 2968， 
一 73.1050 ”3203. 
一 久 4,， 5166 3437. 
一 74.9854 3671， 
一 96.2855 3906， 
一 76.2366 4140. 
一 97.3865 4375. 
一 76.9542 4609， 
一 97.9160 4843. 


d 卫 


FREOQ 


一 77.1883 


上 


六 


“54e 一 0 
.85e 一 0 
.35e 一 01 
08e 一 0 
.4e 一 口 2 
80e 一 0 
1.54e 一 站 1 
, 36e 一 站 1 
.42e 一 02 
79e 一 日 
.02e 一 02 


认 收 羡 和 和 


dB 


一 61.3074 
一 86. 3288 
一 67.3814 


9 7457 


16. 3247 
一 89， 0637 
一 64, 6268 
一 80. 5160 
一 65. 3888 

”一 86. 5087 
一 69. 3368 
一 090.7892 
一 72. 3131 
一 93.7508 
一 ?4,. 4349 
一 85.7768 
一 了 5.8824 
一 97.0865 
一 76.7704 
一 97.7995 
一 977.1624 


.83e 一 0 
.4de 一 0 
“42e 一 0 
“6be 一 0 
. 44 一 中 ] 
，34e 一 口 2 
43e 一 02 
,On0e 一 01 
21e 一 吕 2 
.1te 一 02 
.0d4e 一 站 3 


功率 谱 密 诬 (dB) 





图 3 一 1 一 1 信号 zi) 的 功率 谱 
44 一 2.00e 一 02 45 一 2. 10e 一 02 46 一 1,43e 一 02 47 ”一 4,. 49e 一 03 
48 3. 93e 一 03 49 8, 35e 一 03 50 8. 40e 一 03 5 5. 47e 一 0 
52 1 63e 一 03 53 一 1j.dtie 一 03 54 一 2.81e 一 0D3 55 ”一 2 67e 一 口 3 
56 一 1.64e 一 03 87 一 4.47e 一 04 58 3. 86e 一 04 598 6. 99e 一 4 
680 6.02e 一 04 叶 3. 20e 一 04 62 6. 25e 一 05 63 一 5.08e 一 05 
64 一 5 55e 一 17 


$ 1.2 功率 谱 估计 的 相关 方法 


一 、 功 能 


用 快速 傅立叶 变换 技术 ， 计 算 信和 号 的 自 相 关 函 数 或 互相 关 函 数 ， 并 用 Hiackman- 
Tukey 方法 计算 其 功率 谱 。 


二 、 方 法 简介 
全 为 下 和 3 (01 一 1))， 它们 的 相关 函数 定义 为 
rw (oa] 一 方 立 [ztey 一 z[y 人 十 和 一 关 ，0 近 天 雪 工 一 1 


其 中 z 和 2 分 别 是 Lo ya) 的 均值 ,如 果 z(n) 一 yGn)， 并且 z 一 0, 那么 上 起 称 为 自 
相关 } 如 果 z(a) 天 ?Cn 但 一 ?一 0， 那么 上 式 称 为 互相 关 ; 如 果 z(m 一 Ca)， 但 之 关 0， 
2 尖 0， 那么 上 式 称 为 自 协 方差 如果 za 天 y(z)， 并 且 z 关 0，y 头 0, 那么 上 式 称 为 巨 协 
方差 ， 

一 般 情况 下 ，N 交 ,因此 我 们 常用 快速 传 立 叶 变 换算 法 来 计算 相关 函数 ， 详 见 第 二 
篇 8 3.4 节 。 若 FFT 为 M 点 ， 那 么 可 以 得 到 相关 函数 的 至 十 1 个 信 ， 

为 了 用 相关 方法 计算 功率 庶 ， 首 先 对 相关 函数 进行 加 窗 处 理 
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Fa 00 一 (2 加 (ae) 虽 芝 说 刍 工 一 】1 


对 加 窗 后 的 相关 画 数 ”~…,Cm) 进行 快速 傅立叶 变换 ， 便 得 到 自 功率 谱 或 互 功率 谱 9。 (RE) 


Su 了 = 王 DFT Cn) 
在 上 述 计算 中 ， 为 减少 谱 巾 计 的 方差 ， 要 对 数据 进行 分 段 处 理 。 


三 、 使 用 说 明 
1， 子 函数 语句 


void cmpse(xyyynymymodey winyfs,lag,nfttyry'fredqssxyysdby) 
2， 形 参 说 明 
x 一 一 双 精 度 实 型 一 维 数 组 ,长度 为 n。 输 入 信和 号 xi。 
y 一 一 双 精 度 实 型 一 维 数 组 ， 长 度 为 n。 输 入 信和 号 y(>。 
nm 一 一 整 型 变量 。 输 和 信和 号 的 长 度 。 
m 一 一 整 型 变量 。 分 有 的 长 度 。 
整 型 变量 . 相关 函数 的 类 型 mode 一 0, 表示 自 相 关 ; mode 一 1 表示 互相 











rmode 


; imode 一 2， 表 示 自 协 方差 ;mode 一 3， 并 示 互 协 方差 。 


win 一 一 整 型 变量 窗 函 数 的 类 型 。win 盖 1, 表示 插 形 窗 ，win 一 2. 表示 海 明 窗 。 
二 一 双 精 度 实 型 变量 。 采 样 频率 (以 赫兹 为 单位 )。 

lag 一 一 整 型 变量 。 估 计 功率 谱 所 用 相关 函数 的 点 数 。lag< 十 1。 

nfftt 一 一 整 型 变量 .估计 功率 谱 所 用 FFT 的 长 度 ，nftt 闵 2* lag 一 1 

r 一 - 双 精 度 实 型 一 维 数组 ， 长 度 为 (3 十 1)。 用 于 存放 相关 函数 rz) 的 值 。 


双 精度 实 型 一 维 数 组 ， 长 度 为 (2 十 1)。 用 于 存放 与 功率 谱 相对 应 的 频率 





fred 


sxy 一 双 精 度 实 型 一 维 数组 ， 长 度 为 (2 芷 十 1) 。 用 于 存放 互 功率 谱 的 值 。 


sdb 一 一 整 型 变量 。 用 于 指示 功率 谱 的 单位 。 sdb 一 0, 表示 线性 谱 ; sdb 一 1， 表示 以 


dH 为 单位 的 对 数 谱 ， 


四 、 子 函数 程序 (文件 名 :cmpse,c) 


并 inelude ”math. hy 


并 iclude ”stditib.Dnew 


寿 include *fft en 


Voit ctmpsefxysnymimodeymwinyfslagynifitsryfreqysxyysdby) 
int mnysdb,lagywinytmnodesnftity 
double fs:r 口 ,xL],y[D,fred 丫 ,sxy[]; 
{ int j,j,K,si; 
int nrdynrdy ,nrdx,shft,mbhlflnsectli 


int ntrdxlsnlast,nhf1i 
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double xmncyxrmnsyxicyxisyyicyyisy 
double pi,xstuim yysunm ,xmean ,yIeanyTSects 
double #xay xxXCy XSDC 天 DSS 
xa 一 tmallocfKnfft * sizeofKdoubley ys 
XC 一 maliocCnfft # Sigeoftdouble7 7) 
xs 一 mmallocfnfftt x sizeof(double)); 
EC 一 tmallocftm # Sizeofkdoubie77s 
zs 一 raallocfm # sizeofKdouble7 7 
Bi 一 40xatanCl1.0)7 
shft 一 ImA2i 
mhjifl 一 shft 十 1 
nseet 一 【《n 十 shft 一 1.0)7shfty 
计 (mede > 一 2 
(ss 一 0 
nrd 一 shft; 
XSUtn 王 避 , 自 # 
ystum 一 0. 0 ， 
for ( 作 一 0;k<cnsect 站 十 十 ) 
{ 证 5 一 一 《nsect 一 1)》 nrd 一 吕 一 (nsect--1yxynrdi 
fcer《i 一 03i<<nrdii 十 十 》 
{ xa[i] 一 x[s 十 ， 》 
for 1 一 08<ntrdii 十 十 ) 
{ xstm 十 一 xalj]z 》 
证 (mode 上 一 2 
{ for 和 一 05i<ntdii 十 十 ) 
fxa[i] 一 y[s 十 问 ; } 
for 人 一 0gi<<nrdii 十 十 ) 
1 ysum 一 ystim 十 Xa[i]i } 
} - 
s 一 5 十 rdi 
} 
xtnean 一 xsumyAm; 
yImean 一 ysutmAns 
让 (mode 一 一 2 ymean 一 Xmeans 
XImHC 一 XImeany 


Xmns 一 yYmeaTi 
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nrdy 一 但; 
nrdx 一 shfti 
for 《一 Di<mbhltlii 十 十 ) 
{ 2[i = 0.0; 
zs[i 一 0. 0 
} ， 
for 作 一 OKE< nsect 朱 十 十 ) 
{ nsectl 一 nseet 一 23 
让 人 kf 盖 nsectl) 
{f nrdy 一 mh 一 长 #Shfts 
让 疏 一 一 (nsect 一 1)) nrdx 一 nrdy， 
计 (nrdy | 一 im) 
{ fcer (ti 一 nrdyiictii 十 十 》 
{ xefi] = 0.0) 
xs[i] 一 0.0i 


} 
for 上 一 05i<cnrdyi 十 十 ) 
{ xaLi] 一 x[Ls 十 让， } 
for fi 一 Di<nrdy 有 十 十 》 
{ xceCi] 一 xa[i 直 
xs[i] 王 xa[i; 
让 《ftmode !] 一 0) &R& tmode 1 一 2)) 
{ for(i 一 0Oi<nrdyii 十 十 》 
{ xabi] 一 y[Ls 十 计 } 、 
for 6 一 0H<nrdyii 十 十 ) 
{ xs[i] 一 xza[ij; } 
} 
证 《mode > 一 2) 
{ for 人 一 0Henrdyii 十 十 ) 
{ xef[i] 一 Xe] 一 xmnci 
xs[ 订 一 xs ] 一 xmns; 
} 
} 
nrdXx]1 一 Htdxs 
for fi 一 nrdxlii<<mii 十 十 ) 


{xc[i 和 一 0.05) 
fit(Cxeyxsymyl)5 
fer fi 一 1yi<shftii 十 十 ) 
人 一 于 一 让 
xic = 【xcfi] 十 XeL 门 ) xD0.5; 
xig 一 《xs[i] 一 xs[]yx*0.5 
yic 一 《xs[i] 十 xs[D]yxs0.5; 
yis 一 〈xc[D] 一 xc[i) 0 5 
zce[ 订 一 ze[i] 十 xicxyic 十 Xisxyis; 
zs[i 讨 一 28[i 十 xicexyis 一 Xisxyici 
} 
zc[0] 一 ze[0] 十 xc[0] * xs[0] 
ze[shft] 一 ae[shft] 十 xce[shft] * xs[shft]; 
s 一 SS 十 shft; 
for 各 一 13i<shftii 十 十 ) 
人 一 于 一 让 
xc[i] 一 ze; 
xs[i] 一 2sftj; 
xc[D] 一 ze[; 
xs[j] 一 一 zs[i]i 
} 
xcef[0] 一 zc[L0]; 
xs[0] 一 zst0]j; 
xe[shft] 一 z[Lshft ]; 
xs[shft] 一 zs[shft]; 
人 txcyxssrmy 一 工 ) 
tor《i 一 0i<tmbhlfii 十 一 ) 
{ xa[] 一 xce[Lij/ns } 
for 6 一 0ii<mhlfiii 十 十 ) 
{ ri = xa[ij; 》 
for 避 一 15i<]agi 十 十 》 
{ 计 Cin 上 一 1) 
{ xa[ 订 二 xa[i]x (oO.54 十 0. 46 xcos(ixBiAfiag 一 1》723 
(mnode ! 一 1) 88& mode 上 一 3 
(jj 一 nttt 一 ii 
xa[j] 一 xafi]; 
】 


} 


} 


niast 一 hft 一 ]ag; 


证 【mode 一 一 1) 1 (mode 一 一 3)7 nlast 一 hftits 
for《i 一 jagii< 所 一 nlastii 十 工 ) 

{ xa[i] 一 0.08 
for 6 一 05i<<nftft;i 十 十 ) 

{ xcf] 一 xafi]， 

xs[i] = 00 

fftfxcyxsswnftty 175 
nhfl 一 hfft72 十 15 
for 6 一 0Oii<nhfl3i 十 十 》 

{ freqfi] 一 ifAfdoubleynfftts 


让 (sdb 一 一 0) 
{ sxyfi] 一 sqrtfCxcLi_x xc[i 让 十 xsLi]xe xs[t]) ) 
else 


{ sxy[ 计 一 20.0xlogl0Csqrt(xcLi] xxc[i 让 十 xs0i] xxs[Li775 
} 
free(xa)i 
freegxceyi 
freetXSs)7# 
freefzc)! 


free(kzs)# 


五 、 例 是 


下 面 给 出 主 范 数 程 序 , 它 调用 子 函 数 cmpse() 。 通 过 人 机 对 话 输 入 参数 后 , 它 能 计算 
出 相关 天 数 和 功率 谱 ， 同 时 将 功率 谱 数据 存 人 文件 powspec, dat 中 。 
例 ; 信号 zG) 和 yi 分 别 征 频率 为 了 上 赫兹 的 余弦 和 正弦 函数 


zf) 一 ceosf2rrr 广 ) 
3 一 sinf2rzzy 六 ) 


选择 参数 为 : 信和 频率 一 1000Hz, 采样 频率 六 = 10000Hz， 数 据 长 度 n=256， 每 段 长 度 
m 一 128, mode 一 2， 海 明 徐 函数 ， 用 子 谱 估 计 的 相关 函数 点 数 lg 一 32， 用 子 谱 估计 的 
FFT 长 度 nftrt 一 512， 输 出 功 认 谱 用 dB 表示 。 

主 函 数 程 序 {( 文 件 名 :cmpse- my): 

共 inelude ”stdioy h” 

并 inciude ”math, hy 


并 include ”cmpseey 
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tmaaink > 
t int ismnysdbyiagywinymodeynfft ylenynftit21i 

deuble f,piyrLi28]， 
static double x[512],y[512],freq[L128],sxy[128]; 
FILE xfpi 
len 一 512; 
亚 一 4.0x#atanf1l.0); 
fori 一 Dji<<lenj3i 十 十 》 

{XE 一 cosfk2xPpPExOLxi)i 》} 
for 人 一 Dii<<lenii 十 十 ) 

{ y[i 订 =sinK2#pixQ1lxriy 》} 
brintf (ninput the sample nurmber na )} 
Scanfg fy 只 dmn)i; 
printfC"sampling 他 eduency 引 Sn 7 
Scan 8601” ,人 fs)， 
brintt(input section size In )j 
scanf(” o%d my 
Printfkinput the mode of cottelation functionsnY 
scanftkt” dmode)i 
printf(input the window type; 1 fot teetangujari 2 for hammingwNh ) 
scamff obd gwin)s 
Piintft”input the number of correlation values usedn” 
Scanf(" 06dn yy 芭 lag)》y 
PrintfK2input the size of FET for spectral estitnatesvny ) 
Seanffr gbd nttt)y 
Printffyinput type of spectrum 0 for linear，] for log spec in dBnv*)) 
Scanffn o 芋 ”人 sdb); 
cimpsetx7nrmy modeywinyts ,lagynittiryfreq,sxyysdb); 
nftt21 一 nfft/2 十 15 
Printt (aeCorrelation Functionwnn 7 
for 一 0 i<nftt213 i 十 十 》 

{ printfk 吃 7d 上 11.34 isr0i]); 

证 《ti 十 1》 几 4 一 一 0》 Printffnsa 5 


} 
Prin 二 (mLog Power Specttutn:Npr )， 
printi" mn FRRG dB TFTREG dB" 7 
Printft2 了 RE 驴 dBn233 


forf (ii 一 by i<nfft21; ii 十 十 ) 


fcioseffpy; 
} 
运行 结果 : 
相关 函数 (0 一 64) 为 
人 0. 502 了 0. 403 2 0. 
业 一 六 401 5 一 避 . 492 6 一 站 
8 总 153 9 日. 393 1 站 
12 0,. 145 13 一 0 150 14 一 0 
16 一 总 379 17 一 吕 1]42 18 
20 0. 463 21 0,. 371 22 
24 一 0 370 29 一 9. 453 26 一 总 
28 站 .1 工 2 0D. 362 30 
32 0 133 33 一 0. 138 34 一 0 
36 一 避 348 37 一 站 ,130 38 0 
重唱 O. 42 二 41 0. 340 42 0 
4 一 0. 338 和 5 一 日 , 414 46 一 0 
48 0, 129 49 0. 330 5 0 
52 0. 121 53 一 避 126 54 一 0. 
56 一 0. 316 57 一 0 118 58 0。 
60 0. 385 61 0. 308 62 
64 一 总 307 
信号 xz 人 与 ?GD) 的 互 功率 谱 如 下 
FFREC dB 了 RE 已 dB 
0.0 一 2 4638 78, 1 一 92.227 
234. 4 一 51.8240 312. 5 一 21. 1400 
和 8 有 8 一 24, 2255 546. 9 一 38, 4523 
703. 工 一 11.0800 781. 2 3. 9527 
937.5 17, 1394 1015, 6 8. 1236 
1171,.9 9 9806 1250, 0 一 0 53g2 
406. 之 一 32. 1344 ]1484. 4 一 42. 3579 
1640, 6 一 25. 3542 1718. 8 一 24. 1901 
1875.D 一 20. 0832 1953. 一 29. 4408 
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{ printff” 师 11. 1 攻 电 13.4 科 ,freq[i]j,sxy[i]y; 
证 《人 十 1] 7 败 3 一 一 0 printtf nr 7 
好 一 fopen(Cycmbpse, dat” wwr” 
for 0 一 0 inftt2iy i 十 一 ) 


{ fprintfcfp 31. 1 外 13. dfvnae ,freq[i],sxy[ 订 ; 


} 


.395 
. 482 


8 


. 363 


354 


40 


322 


bt 户 区 中 


一 0, 156 
一 0. 148 
0. 387 
一 0. 493 
0. 378 
一 曲 1444 
一 0 1386 
0. 356 
一 0. 434 
0 346 
一 0 132 
一 心 124 
站 324 
一 履 395 
0,. 314 
一 0 120 


957 
8523 
.4264 
.6999 
- 8466 
658 
4651 
“6675 
0116 


2109， 
2343， 
2578， 
2812. 
3046. 
3281]。 
3515. 
3750， 
3984。 
4218. 
4453。 
4687。 
4921， 


和 


一 38.0949 
一 27.7095 
一 34.7849 
一 31.8907 
一 44.1573 
一 30.8686 
一 二 0 7697 
一 33. 4645 
一 84. 021 和 4 
一 32.2190 
一 和 7 497 
一 34, 0610 
一 55,.0656 人 3 
信号 z 人 GD) 与 3 (的 互 功 率 谱 如 图 3 一 1 一 2 所 示 。 


功率 谱 密 度 (aB) 


2 


ho 


臣 


图 3 一 1 一 2 俏 号 工 ( 全 与 yG) 的 站 功率 谱 


2187. 
2421. 
2656. 
2890. 
3]125， 
3359. 
3593. 
3828， 
4062， 
4296， 
4531， 
业 7 665 ， 
5000， 






局 


一 30， 
一 39. 
一 29， 
一 36， 
一 32. 
一 4， 
一 31， 
一 42， 
一 33. 
一 62. 
一 32. 
一 50， 
一 34， 


1633 
8792 
0480 
8848 
5536 
6321 
4657 
7646 
7518 
3456 
4180 
7618 
0983 


2265， 
站 00， 
2734， 
2968. 
3203. 
3437， 
3671. 
3906， 
4140， 
4375， 
4609， 
4843， 


的 和 人 


2000 ”3000 4000 5000 


频率 (Hz)》 


一 32， 
一 31， 
一 41， 
一 30. 
一 38， 
一 33. 
一 49， 
一 31， 
一 44， 
一 33， 
一 67， 
一 32， 


3913 
0731] 
8874 
0795 
8432 
0733 
6940 
9073 
9470 
9474 
1435 
5150 
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第 二 章 “现代 谱 估计 





8 2.1 求解 一 般 托 布 利兹 方程 组 的 莱 文 森 算 法 


一 \ 功 能 


用 莱 文 潭 (Levinson) 算 法 求解 对 称 托 布 利兹 (Toeplitz) 方 程 组 。 


二 、 方 法 简介 
?2 阶 对 称 托 布 利兹 方程 组 可 以 写成 如 下 第 阵 形式 


加 志 帮 1 区 0 | 加 ] 
如 区 | 0 补 1 | 咏 
1 we | 一 


攻 去 如 3 
1 





7 -1 f- 2 本 世 


求解 对 称 托 布 利兹 方程 组 的 菜 文 森 算 法 如 下 : 
1， 和 初始化 


an 一 贡 9 9 全 一 1， 开刀 一 站 


2， 对 于 大 一 1]， 2 9 一 ]， 作 如 下 计算 ， 


4 -1 
一 》 ， ( 昌 
人 一 证 本 一 # 


了 一 昌 
下 一 1 
一 上 
六 -一 和 +1 
7 一 


6 一 一 房 -ye 


全 十 1 [和 3 
和 1 


一 人 3 和 
一 和 二 9 一 


呈 一 二 -1 十 ct ,1 
0 一 【 术 一 人 /au 
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一 站 一 
一 okttD 


区 明寺 上 (二 1 
二 


汪 避 1 


三 、 使 用 说 明 
1 子 阴 数 语 名 


int levinttybypnyx) 
2， 形 参 说 明 
t 一 一 双 精 度 实 型 一 维 数组 , 长 度 为 n。 存放 对 称 托 布 利兹 矩阵 的 元 束 名， 和 ，…， 丘 -1。 
b -一 双 精 度 实 型 一 维 数 组 ， 长 度 为 mn。 存放 方程 组 右 端的 常数 向 量 。 
n 一 一 整 型 变量 。 方程 组 的 阶 数 。 
x 一 一 双 精 度 实 型 一 维 数组 ， 长 度 为 nm。 存放 方程 组 的 解 。 
本 函数 的 返回 伟 若 小 于 0， 则 说 明 方程 是 病态 的 。 


四 、 子 函数 程序 (文件 名 :levin,e) 


闪 include ”stdlib. hy 
int levinkCtyb nyx7 
int ni 
double tt] ,br ,xf]; 
{ int ij ki 
double 8ybetayqyesh，x#y，H#S9# 
s 一 inatioc(nx sizecoffdooble7y7# 
y 一 malloc(n#sizeof(doubley 7 
a 一 tL0]; 
让 《fabs(a? 十 1.0) 一 一 工 .0) 
{ freefs75 
freeky75 
brintf( il 一 conditionedAn2 )5 
return( 一 1 7; 
} 
yY[0] 一 1.08 
xf[o] = bto]/as 
for (kk 一 1k<<nik 十 十 ) 
《 beta 一 站 .0 
Q 一作 0 
fot 一作 柯 < 长 林寺 十》 
{ beta 十 一 yYD] *tD 十 1]; 
q 十 一 xD]#t[ 丰 一 ; 
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上 
让 kiabsfa) 十 1.0) 一 一 1.0) 
1 freefa34 
freefy2)s 
ptrintf 了 ii 一 conditionedAny ) 
returne 一 ?4 
一 一 betaya 
sL0] 一 cxy[ 一 1 
y[Ek] = y[k 一 1 
kk1 一 1) 
{ for 6 一 1i<kii 十 十 》 
{ st 一 YL 一] 十 exy[k 一 i 一 1J; ) 
} 
s[ 攻 ] 一 yY[K 一 1 
中 十 一 Cxhbetat 
证 《kfabs(ay 十 1.0)7 一 一 1.0) 
《 freeks)3 
freefy)y 
Printt 这 一 ceonditionedny 7) 3 
teturn( 一 1 
} 
和 一 人 上 ] 一 gas 
for 人 ==O5tcgii 十 十 》 
{xX[i 十 一 hss[il; 


y[] 一 si] 
} 
x[k] 一 上 #y[K]# 
} 
free(s]y 
freeky); 
tetutnK1 7 
】 
五 .人 鲍 题 


求解 六 阶 对 称 托 布 利 效 方程 组 4 和 = 于， 其 中 
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654833 1 
5654 3 2 
的 
3 2445 8 5 
2345 6 5 
23495 6 


部 :一 (6,54,32,1)》， 常 数 向 量 且 一 (11，9，9，9，13，17) 。 
主 函 数 程序 { 文 伟 名 :jevin my): 
##include ”atdio. hy” 
牛 inelude ”levin。c” 
maint 
{ inht 和 
static double r[6] 一 {6.05.0,4.03.0,2.01.0)5 
static double bL6] 一 111.0,9.059.09.0:13.0,17.0}5 
static double x[6]#; 
i 一 levingry pb 6,xX7# 
让 《0D) 
{f for fi 一 Di< 6ii 十 十 》 
f printtKxKody 一 名 10.7lfnr jixi 3 


# 


运行 结果 ， 
方程 组 的 解 为 
xf07 一 3.0000000 
xtl) 一 一 1.0000000 
xf2) 一 “0.0000000 
xf3) 一 一 2.0000000 
xfd4 一 人 0000000 
xf53 一 4.0000000 
8$2.2 求解 对 称 正定 方程 组 的 和 里 斯 基 算 法 
一 、 功 能 
用 乔 时 斯 基 (Cholesky) 竺 法 求解 对 称 正定 方程 组 。 
二 、 方 法 简介 
n 芥 对 称 正 定 方 程 组 的 矩阵 形式 为 
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4X 一旦 


其 中 人 4 一 《QiDnxay 及 一 《Ti)axity 上 一 《可 xia 


扎 阵 4 的 乔 里 斯 基 分 解 为 
4 一 FDI7 
这 里 厂 是 主 对 角 元 素 都 为 正 实数 的 对 角 阵 , 即 万 = dag(eido 到 汪 0。 工 是 主 
对 角 元 束 都 为 1 的 下 三 角 阵 
1 0 


ia La 了 
用 乔 里 斯 基 算 法 求解 对 称 正定 方程 组 的 方法 是 , 先 用 回 代 方 法 求解 方程 组 ZY = 号; 
得 到 了 后 ， 再 用 介 代 方 法 求解 方程 工 匡 = 五 YY 。 具 伍 算法 如 下 : 
1. 将 矩阵 4 进行 乔 里 斯 基 分 解 





_ 妈 一 Ga 
对 于 + 一 2 3 进行 如 下 计算 
2 9 了 一 1 
7 一 1 
二 
子 一 9 一 23 一 
开 业 一 Ci 7 
好 一 位 和 一 > 要 
4 
2. 进行 第 一 次 回 代 ， 求 解 了 
妨 一 站 


扳 一 久 一 oo 一 23 


2 
有 志 
一 一 1 
二 一 友 2 日 下 天 ,天 呈 ?了 
三 、 使 用 说 明 
]， 子 函数 语句 


choleskykaybya) 
2， 形 参 说 明 
a 一 一 双 精 度 实 型 一 维 数组 , 长 度 为 &a :也 ,存放 对 称 正定 抵 阵 A 的 下 三 角 矩 阵 的 


元 束 和 以 行 的 顺序 存放 4 即 三 0= 有 TD9 弛 119 放 8309 他 219 证 2332? 全 50 
hb 一 一 双 精 度 实 型 一 维 数 组 ,长 度 为 n。 开始 时 存放 方程 组 右 端 的 常数 向 量 , 最 后 存 
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放 方 程 组 的 解 。 
a -一 整 型 变量 。 方程 组 的 阶 数 。 
对 于 病态 方程 组 ， 本 程序 给 出 提示 信息 ， 


四 、 子 函数 程序 (文件 名 :echolesky.ec) 


柯 inecluade ”std hy 
共 include ”math. hy 
”void cholesky(ay byn) 
tt 号 
double ar 站 ,br]， 
(int ij 攻 my 
double #qy xyysXlyepsi 
d 一 tmallockCnysizeoft(double))， 
一 mallocCn < sizeof(double77; 


xl 一 malloc(nayxnxsizeofKdouble))3 


eps 一 ]. De 一 154 3 
人 一 00; 
d[0] 一 afm]; 


for 全 15i<nii 十 十 》 
{ tor 站 一 0j<i 十 十 ) 


fi 一 血 十 1 
iE xn 十 和 一 a[m]/d7]; 
主 划 一 = 一 0) ceontinuey 


for 化 一 0 六 <j; 其 十 十 》 
{ 如 <mn 十 习 一 x[ism 二 sxlExn 二 kxdk]AdL 
} 
王 一 mm 十 1 
dbi] = 一 a[m]; 
fer 企 一 0k<iik 十 十 》 
(d 吕 一 dt 一 ak]x*xlfixn+k]*xlfiyn 二 k]， ) 
这 《tabsftdt] ) < eps) 
{ brintffwnil 一 conditione 丰 Any 7)# 
TEtUIT 开 
》 
y[0] = bL0J]; 
for 引 一 1E<n 引 十 十 ) 
{ y[k] 一 bfk]; 


285 


for (j 一 Djj<kjj 十 十 ) 
ty[k] 一 yLkJ 一 太 LE xn 十 让 *y[ 宁 ; } 
} 
bftn 一 菇 一 y[n 一 匡 Ad[n 一 1] 
foer 全 一人 一 2 下 人 天 Di 一 一 》 
{ btg] 一 y[kJ/dLk] 
for 《一 在 十 135j<n5 十 十 ) 
{ bfLk]j 三 blk] 一 区 Disn 二 KJ]x<bU]s 


} 
freegdyy “ 
freekyys 
freefxl) 
} 
五 、 例 题 
求解 四 阶 对 称 方程 组 4X 一 互 , 其 中 
6 2 
4 一 2 5 3 
10 了 
7 8 


右 端 常数 疝 量 妃 = (19，231，47，30)7。 
主 函 数 程序 (文件 各 :cholesky- m): 
并 include *stdio. hx 
并 itelude ”cholesKY， ce 
rmaain() 
t int iyn3 
static douhbjle a[10] 一 (1，3，2，6，5，10，2，3，?7，5}3 
static double b[4] 一 119，21，47，301， 
void choleskyfyy 


nm 二 44; 
cholesky(a,byny); 
fei 和 二 Di<nii 十 十 》 
{ Printf(z xf 906d 一 站 10.7lfsne iibfi) } 
运行 结果 : 
方程 组 的 解 为 


xK0) 一 1,.0000000 
KKTD) 2 0000000 
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xf2 一 1.0000000 
xf3)》 一 3.0000000 


Y 2.3 求解 万 利 -沃克 方程 的 莱 文 森 - 德 宾 算 法 


一 、 功 能 
用 菜 文 森 - 德 宾 (Levinson-Durbin) 算 法 求解 万 利 -沃克 (Yule- 罗 alker) 方 程 。 
二 、 方 法 简介 
坊 府 花 利 -沃克 方程 的 矩阵 形式 为 
r(0) zf1) 人 1 忆 
的 二 ) 六 CO) 一 1)| afgl) _ 0 
《站 一 1 0 《 声 》 


其 中 -fr 是 相关 函数 , (ae(l)ya52 cp) 是 AR(z) 模 型 的 系数 , 是 预测 误差 功率 。 
该 方程 实际 上 是 本 章 8 2. 1 节 托 布 利兹 方程 的 一 种 特殊 情况 , 它 可 以 用 菜 文 森 - 德 宾 “ 
算法 更 加 有 效 地 求解 。 经 过 阶 次 递 推 , 可 依次 计算 出 {eaCtD mlyfas(l)vasC23，p 
(azC1)，ar(2)，…yax(z)pp} ,其 中 AR 模型 参量 都 加 上 了 下 标 以 表明 阶 数 ,， 阶 数 为 少 的 最 
后 那 组 参量 就 是 方程 的 解 。 具 体 算法 如 下 ， 
r【〈1) 


1. 初 值 化 4 04) 一 一 (0 
而 一 人 一 2 (《 人 1 | 人 0) 
2 对 于 天 一 2 ,3 是 ,进行 如 下 计算 
二 一 1 
r(GE)》 十 之 Ji-iCPDr( 全 一 廊 
应 -1 
QT 一 GT) 十 公仆 瑞 ] 人 《下 一 人 且 ti 一 1 2? 呈 一 ] 
站 一 【1 一 | 
三 、 使 用 说 明 
1， 子 函数 语句 
void levinsomtt 和 yayv) 
2， 形 参 说 明 
双 精 度 实 型 一 维 数组 ， 长 度 为 人 p 十 1)。 存 放 Yule-Walker 方程 的 元 索 r(0),r 
《tywrfp)。 
P 整 型 变量 。AR 模型 的 阶 数 。 


a 一 一 双 精 度 实 型 一 维 数组 ， 长 度 为 (p 十 1)。 存放 AR 模型 的 系数 at0) ,al1y，…， 
CQ 四) 。 





Qt 二 》 一 一 





工 
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交 


双 精 度 实 型 指针 。 它 指向 预测 误差 功率 po, 即 AR 模型 激励 白 噪 声 的 方 癌 f。 
四 、 子 通 数 程序 { 文 伯 名 :levinson.e) 


并 inelude ”stdiib, hr 
void levinscnfry,pyayv) 
int 3 
double x*vyaL JrL ]i 
{ int 1 
double q, xb 
b 一 malioc(CCp 十 1) x+ sizeof(double773 
al0] 一 1.0 
a[t] 一 一 rL1JAL0] 
v[o] 一 (1 一 ax*aLli]>xrrLo]i 
for ( 任 一 2 必 一 pp 环 十 十 ) 
{ 如 一 吕 0 
for 如 一 Di<kii 十 十 )》 
{q 十 一 a[i*rtk 一 口 》 
a[kj] = 一 aq/v[0]; 
for G=13i<<kyi 十 十 )》 
{brij 一 at 十 atk]xakk 一 匡 ; 
for 和 一 Ti<k 红 十 十 》 
{ alLi 计 关 bi ) 
v[o] = (1 一 afk]x*aLkjxevCo] 
} 
freekb)# 
} 


五 . 例 题 


马 知 实 序列 zx 人) 的 自 相关 为 rw(0) 一 55，re(1) 一 40，rf2) 一 26，rs(3)> 一 14, 用 莱 
文 森 - 芍 宾 算法 求 其 AR 模型 参数 {e(1) ,ae(2),a(3)，0)。 
主 阴 数 程序 { 文 件 和 名 :levinson-m)， 
六 incluqe ”stqio. hy 
并 inctude "levinsomny ce 
mmaint ) 
{ nt ty 记 
doubie va[4]; 
static double rt4] 一 155，40,，26,1419 
p 一 3; 
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levinsonfrypyaygv)s 
printf(*The Coeficients of 和 RModelny )5 
for 《ki 一 05i<41 十 十 ) 

{ brintffrar qd) 一 410.7tfsmnw isaLijysz } 
printik"The Prediction Frror Power for the Predictoer \na7 DJ4 
Btintft(rPe 一 邮 10.71fn vs 

} 


运行 结果 : 
AR 模型 的 系数 为 
ao) 一 10000000 
afl) 一 一 0.8028575 
ak2) 一 0.0430279 
af3) 一 0.0936942 
预测 误差 功率 为 
Pe 一 25.3161423 
8$ 2.4 计算 ARMA 模型 的 功率 谱 密度 
] 功 能 
计算 ARMA(zp,9) 模 型 的 功率 谱 密 度 。 
二 、 方 法 简介 


平稳 随机 序列 zz) 的 ARMA(2 9) 模型 为 
2 人 (na) 十 atiz(za 一 们 一 袜 sGma 一 分 
其 中 acGDG=1,2， 放 和 5G)G 二 01 .9) 分 别 是 ARMA 模型 的 自 回归 CAR) 参数 和 
滑动 平均 (MA)? 和 参数 ,mw(m) 是 均值 为 零 . 方 莽 为 严 的 白 噪声 序列 。 
ARMA(z,9) 模 型 的 功率 谱 密 度 为 


& 


克 (o) 一 中 








1 十 >eG)e 7 
三 、 使 用 说 明 
1， 子 及 数 语 名 


yoid psdqkb,avqypysigma2,fs,xyfreqlenysign) 
2， 形 参 说 明 
h 一 一 双 精 度 实 型 一 维 数 组 ， 长 度 为 (9 十 1)。 存 放 ARMA(z,9) 模 型 的 祖 动 平 淘 系 
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数 。 
双 精 度 实 型 一 维 数组 , 长 度 为 (8 十 1) 。 存 放 ARMA(p,9) 模 型 的 自 回归 系数 。 

d 一 一 整 型 变量 。ARMA (za) 模 型 的 滑动 平均 阶 数 。 

bp 一 一 整 型 变量 。ARMA (po9) 模 型 的 由 回归 阶 数 。 

sigrmag 双 精 度 实 型 变量 。ARMA(p,o) 模 型 白 噪 声 激励 的 方差 呈 。 

fs 一 一 双 精 度 实 型 变量 。 采 样 频率 (Hz) 。 

x 一 一 双 精 度 实 型 一 维 数组 。 长 度 为 tn。 当 sign 一 0 时 ,存放 功率 谱 密度 ; 当 sign 一 
1] 时 ,存放 用 分 贝 表示 的 功率 谱 密度 。 

frea 一 一 双 精 度 实 型 一 维 数 组 ， 长 度 为 ltn。 存 放 功 这 谱 密度 所 对 应 的 频率 。 

len 一 一 整 型 变量 ， 功 率 谱 密度 的 数据 点 数 。 

sign 一 一 整 型 变量 . 当 sign 一 0 时 ,计算 功率 谱 密 度 ; 当 sign 一 1 时， 计算 用 分 贝 表 
示 的 功率 谱 密 度 ， 


四 、 子 贡 数 程序 (文件 名 :psd,c) 


林 inelude ”math.hy” 


void bsdfb ,aqPysigma2fsxyfredylenysigay》 





己 








int bgylenysigni 
double fs ,sigma2 ,b[L]，a[L]，xf]，freq[L]; 
fant 1 攻 ; 
double ar,aivbr,bi,zr,zi,imyre ,XIe yxirn 
double angydenynumrynumiytemP; 
for (一 OK<lenaiEE 十 十 ) 
ang 一 上 长 xx 0.5A0en 一 1)3 
freqLEk] 一 angs*fs; 
Zr 一 COs{K 一 8 Dx atant1. 个) 头 am 区) 
2 一 Sn 一 8 0Oxatank1. 人 )》x<angg)# 
br 一 站 . 曲 
bi 一 0.0; 
for 在 一 民生 和 一 一 》 
{ re 一 br 
im 一 bi 
br 一 《te 十 by7xrzr 一 naxziy 
bi 一 《re 十 bfi])yxi 十 imx2zri 
} 
atr 一 曲 . 曲 ， 
al 一 作 .0 
fcer (一 Pii0iil -一 ) 
(re 一 ari 
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im 一 天 ; 
ar 一 (te 十 aij)xa 一 ixrzit 
ai 一 《te 十 和 ix# 下 十 ixzri 
} 
br = br 十 btLo] 
ar 一 ar 十 1.05 
Pumr 一 arX#br 十 下 基 bbi; 
nutmi 一 ar 从 bi 一 aishbri 
den 一 arxar 十 ai 关 aif 
xre 一 nurmnr/den+ 
xim 一 nurniydeny 
Switch 《signy) 
{ ease 昌 
{ X[k] 一 xrexxre 十 Xim 关 Ximy 
xf[k] 一 sigma2xxlkjAfss 
break 
} 
Case ] : 
{ tetmmp 一 Xre #Xre 十 Xirm xxXitny 
temp 一 Sigma2 x tebmprfss 
计 (tetmp 一 一 0.0) temp 一 1.0e 一 20; 
x[k] = 10,0x*logl0(Ctemp)i 
} 


五 、 例 题 


各 Rd) 模型 为 
ze) 一 2.76077(2 一 1) 十 3.81067 人 (2 一 2 一 28535zt2 一 3) 
十 0.9238Yx(a 一 和 本) 一 (ma 

其 中 wm 是 零 均 值 .单位 方 益 的 锯 噪 声 。 计 算 AR 序列 的 功率 谱 窗 度 。 
主 函 数 程序 (文件 名 :psd. my) : 

##include "stdic. hy 

raainf ) 

{f int ileni 

static double a[5] 一 (1， 一 2.7607，3,. 8106， 一 2.6535，0. 9238} ，bL1] 一 1 人 11) 
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static deuble f ,sigma2 ,xf300],freq[L300]; 
FILE xpi 
void psdCy; 
fs 一 1.0| 
sgtma2 一 1.0} 
len 一 300; 
Psdtt ,ay0 4 Sighta2yfsyxyfreqyleny 7， 
计 《【( 志 王 fopenfrpsd .datrw)) 一 一 NULL ) 
{ brintfgwecanhot open file ?psd, dat 1 An )i 
eXit〔KO)5 
} 
forG 一 0M<<30051 十 十 ) 
{ tprintiftp 7 的 让 fnw fredLi]yxf7，》 
felese(fp); 
} 
运行 结果 : 
AR(4) 横 型 的 功率 谱 窗 度 如 图 3 一 2 一 1 所 示 。 


功率 谱 志 度 (dB)》 





0.1 日 ,Z 日 .5 台 ,4 
归 一 化 频率 


图 3 一 2 一 1 ARC4) 模 型 的 功率 谱 


Y 2.5 尤 利 - 沃 殉 谱 估 计算 法 


一 、 功 能 


用 自 相 关 方 法 估计 AR 模型 参数 ， 进 而 实现 功率 谱 估 计 。 该 方法 也 称 为 尤 利 - 活 克 
(Yule-Walker) 算 法 。 
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二 、 方 法 简介 
平稳 随机 序列 <GonD ta 一 0601 一 1 的 ARCzp) 模 型 为 
大 
六 (za) 十 之 /ai) 一 训 人 na) 


其 中 al 人 一 1;2, ,为 ) 是 AR 系数 ,zk 是 均值 为 零 ,方差 为 中 的 白 噪 声 。 
思 自 相关 法 估计 AR 模型 参数 的 具体 步 怠 如 下 : 
1. 计算 自 相 关 亏 数 


一 坊 > rzGD ze 十 旬 ， 下 一 0 地 
2. 用 菜 文 森 - 德 宾 算 法 求 盘 尤 利 -沃克 方程 


(DO) esf17) oo 7ee( 轧 )》 1 本 
7z(T》 六 人》 一 | et 10 
Fr 四 res 大 一 17 FacgD) 《十 7 0 
”用 AR 参数 的 估计 值 , 可 以 计算 功率 谱 密度 
号 Ko) 一 工 





[+ 六 ee 
三 、 使 用 说 明 
1， 子 坟 数 谓 句 


void yutewalk(xznypPyasv) 
2， 形 大 说 明 
x 一 一 双 精 度 实 型 一 维 数组 ， 长 度 为 na。 存放 随机 序列 。 
n 一 整 型 变量 。 随 机 序列 的 长 度 。 
bp 一 一 整 型 变量 。AR 模型 的 阶 数 。 
双 精 度 实 型 一 维 数组 ,， 长度 为 (p 十 1)。 存 放 AR 模型 的 系数 af(0)，a(17》，…:a 





《 户 ) 。 
y 一 一 双 精 度 实 型 指针 。 它 指向 预测 误差 功率 于 , 即 AR 模型 激 砚 白 噪 声 的 方差 。 


四 、 子 冰 数 程序 (文件 名 :yulewalk,c) 


林 include ”stdtiib.hy 
并 include ”levinson。 cy” 
void yulewalKCxy nypyayvy) 
int mpi 
double x* va[],x[]; 
【 Tt 1 

double s，#T; 
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t 一 Imnallioct(pPp 十 17》#sizeoftdouble)ys 
for 修一 Tc 一 Di 十 十 ) 
{a 一 0.0 
for (一 0ii< (Cn 一 K)5i 一 十 ) 
{s 十 一 xfJ#x[i 二 kJ ) 


+[k] 一 sm3 
} 
levinsongktr ,pyayy)i 
freefry3 
} 
五 . 例 题 


例 1: 用 程序 产生 40 点 数据 , 它 是 下 面 3 阶 IIR 数字 汪 波 恬 的 单位 冲 激 啊 应 


17[1 一 1.44z- 十 1 26c-: 一 0.81z-3] 


用 万 利 -沃克 方法 估计 该 滤波 器 的 系数 。 
主 函 数 程序 (文件 名 :yulewall.my)， 
##inelude ”stdio. hy 


并 include ”yujewalk, cy 


main( > 


{ int iynypy 


} 


double vexLd40]s 
double aLd4j]; 
卫 一 40 
P 一 3; 
xXLD] 一 1.0) 
X[1] 了 一 1.44; 
x[L2] 一 1.44<x[1] 一 126; 
for fi 一 3ocnii 十 十 》 
4 x[i 一 1 44#xX[i 一 1] 一 1.26xx[i 一 2 十 0 81*xDi 一 3];} 
yulewalkfxnypyaywv)i 
printfCrThe Coefficients of 入 RModelvny* )y 
fer(i 一 0ii< 一 pii 十 十 》 
{ printftfyat dy 一 好 10.7lfn7 isya[i)z ] 
printfgC7The Prediction Error Power of AR Modelvn” > 
PrinttgrPe 一 凤 10.7lfnyvy; 


运行 结果 : 
AR 模型 的 系数 为 
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at0) 一 1.0000000 


a(1)》 一 一 1.3630849 
a(2) 一 于 1082684 
a(3) 一 一 0.7100407 
茵 测 误差 功率 为 


Pe 一 10382279 
例 2;,AR(4) 模 型 如 下 
za) 一 1.3527(n 一 1) 十 1.338z(m 一 2》 一 0.662z(n 一 3) 十 0 247( 一 4) 一 记 () 
其 中 心 (是 芍 均 值 、 单位 方差 的 白 噪 声 。 这 是 一 个 宽带 随机 过 程 . 用 尤 利 -沃克 方法 估计 
AR 参数 ， 并 进行 谱 估计 。 
主 范 数 程序 (文件 名 :yulewal2. m) ， 
.并 include ”stdio. hy" 
井 include "arzma, cn 
并 inelade ”yulewalk, cy 
井 incluqe ”bSQ ce 
tmain(》 
finat iynypyqrtens 
ljong seeds 
deuble v,meanyvarycL10,x1500] ,freq[200]， 
deuble fs vsigma2; 
static doubte aL5] 一 (1.0， 一 1.352，1.338， 一 0. 662，0.24}14 
static double b[L1] = 11.013 


FILE # 和 3; 
一 由 
虽 一 0 


see 由 一 13579]; 
mean 一 让. 0; 
VaT 一 1 .0 
na 一 5005 
atimnafaib,pygyimeanyyary&rseed' xyn)i 
for (ii 一 0yi<<3005i 十 十 ) 
x[i 一 x[i 十 200]; 
站 一 2300 
yulewalk(xnypycyRv7 
printff7The Coefficients of AR Modela7 7)3 
for (一 0Oii<< 一 bii 十 十 ) 
{ printfCxaK 上 d) 一 %10.7lfn* icrD)，) 
Printt CThe Prediction Error Power of AR Modelm7 3 
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Printf(Pe 一 10.7f nyv7i 
fs 一 1.0 
sigma2 一 Yi; 
len 一 200j 
psd(bc,gypysigma2 ,fs ,xyfreqyleny 1); 
fpP 一 fopent2yulewral2. dat ”wj 
fer 总 一 0ii<lenii 十 十 ) 
邱 rintffp 听话 贤 lfnw ,freq[i],xLi); 


fciosetfp); 
】} 

运行 结果 : 

AR 模型 的 系数 为 
at0) 一 1.0000000 
al 一 一 1.3323805 
ak2) 一 1.3059350 
af3) 一 一 0.5808768 
akd4) 一 0.20067898 

预测 误差 功率 为 
Pe 一 1.0995336 


其 功率 谱 如 图 3 一 2 一 2 所 示 。 


功率 谱 和 密度 (3B》 





图 3 一 2 一 2 赛 带 AR(3) 模 型 的 功率 谱 
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$ 2.6 协 方差 谱 估计 算法 


一 、 功 能 

用 协 方差 方法 估计 AR 模型 参数 ， 进 而 实现 功率 谱 估 计 。 

二 、 方 法 简介 

平稳 随机 序列 Ce Ca 一 0,1，… 一 1 的 AR(z) 模 型 为 
(mn 十 >ezo- 修一 zo(m] 


其 中 ac)G 一 1 2， 力 ) 是 AR 系数 ， 必 0) 是 均值 为 零 、 方 关 为 至 的 特 噪 声 。 
乃 协 方差 法 估计 AR 模型 参数 的 具 居 步 又 如 下 ， 


1， 计 算 协 方差 
Cac7) 一 二 7 之 tf 一 一 下 
2. 用 乔 里 姑 基 算法 求解 对 称 正定 方程 组 
ckl,1) ennfl,2) coalyp) | frefl) cazf 1s07 
Caaf21)》 Cua(220 caag2 加 | |a( 人 | [cesf2)0) 
Cs 四 1》 Caz{f 声 ?2 1 Crzf 四 三) 《 声 ) rarf 办) 


3.， 计算 激 支 白 品 声 的 方差 
开 一 ca(0,0) 十 人 ae(R)cs(0 有 


用 AR 模型 参数 的 估计 值 ， 可 以 计算 功率 谱 密度 
{ 


So 一 一 一 一 
上 十 之 JaG3e- 知 时 
三 、 使 用 说 明 
1， 子 函数 语句 
void eovargxynpyasvmode) 
2， 形 参 说 明 


x -一双 精度 实 型 一 维 数组 ， 长 度 为 mn。 存放 随机 序列 。 
n 一 一 此 型 变量 。 随 机 序列 的 长 度 ， 
bp 一- 整 型 变量 。AR 模型 的 阶 数 。 
a 一 一 双 精 度 实 型 一 维 数组 ， 长 度 为 人 p 十 1)。 存放 AR 模型 的 系数 e(0)，a(1)，…， 
妈 ( 态 )] 。 
Y -一 双 精 度 实 型 指针 。 它 指向 预测 误差 功率 必 , 即 AR 筑 型 激励 白 噪 声 的 方 盖 。 
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mode 一 - 整 型 变量 。mode = 0， 表示 协 方 盖 算法 ;mode 一 1， 表示 修正 协 方差 算 


四 、 子 函数 程序 (文件 名 :covar, c) 


并 inelude ”stdlib. hy 
林 inciuqde ”cholesky. ec" 
void covarfxznypyarvytmode》 
int mypymodei 
double *vya[],x[]; 
{ int ij 长 ,im 
double ceysutn，#ei 
c 一 imallocf(p * (pb 十 1)727 xx sizeof(Cdodubley yi 
Im 一 0 
for kkE 一 1k< 一 piK 十 十 ) 
for 人 一 1 一 攻 和 十 十 ) 
fceLm] = 0.0; 
for (= 一 pinii 十 十 ) 
{ ceLm] 十 一 xDi 一 订 # x 扣 一 ]; 》 
让 《mode 一 一 1) 
f for 人 一 05i< Cn 一 Pi 十 十 》 
{e[m] 十 一 xi 十 条 *x[i 十 k]; 》 
也 一世 十 1; 
} 。 
fer O 一 1 过 一 D 和 十 十 ) 
(atj 一 二 一 0.0; 
for (〈i=pyi<naii 十 十 ) 
faD 一 1] 一 一 xD 一 站 <*xf]，} 
让 《mode 一 一 1) 
{ forgi 一 0H< en 一 D) 袜 十 十 ) 
{ ab 一 二 一 一 工 Li 十 辣 < 工 [站 } 


} 
chelesKkykey ayp); 
for 全 一人 一 1 7i 人 > 一 0 一 一 ) 
{ aLk 十 1] 一 a[k]; ) 
a[0] 一 1.0， 
sum 一 0 0 
29 如 





for (长 一 0 下 所 一 PP 汶 十 十 ) 
{ee 一 站 0# 
for〔i 一 pyi<<nii 十 十 ) 
tec 十 一 X[i =xL 一 区 
诗 (mode 王 一 1) 
{ for 0 一 0 tn 一 Pi 十 十 ) 
{ ec 十 一 xi] xf 二 k]，)} 
} 
让 (一 一 0 
{ sum 十 一 Ce }》 
else 
{ sum 十 一 ccxakkji } 
} 
让 【mode 一 一 1 ) 
{vL0] 一 sum7(2 xn 一 p))7 )} 
Se 
{vwLO = sum(na 一 b+ } 
freeCeyy 


} 
五 、 例 题 


例 1:AR(4)? 模 型 如 下 
(一 1 352zf( 一 1) 十 1. 338xz (2 一 2 一 0 662z(n 一 3 十 0, 24zKa 一 4 一 友人 2) 
其 中 w() 是 零 均 值 、 单 位 方差 的 白 噪 声 。 这 是 一 个 宽带 随机 过 程 。 用 协 方差 法 估计 AR 
参数 ， 并 进行 谱 佑 计 。 
主 函 数 程序 (文件 名 :covarl. m): 
芽 include ”stdio. hr 
林 inctude "attmaen 
##include "ceovatr.cy 
#ineluqe "psd. cn 
tmain() 
fint inypyqvlens 
]ong seed; 
double vymeanyvarvc[10],x[500],freq[L200]; 
double fs sigma2s 
static double a[5] 一 {,0， 一 1.352，1.338， 一 0. 662，0. 241; 
static double bf 一 1 
FILE *f; 
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了 一 4 
9 一 0 
Seed 一 13579] ; 
Hean 一 虽 . 昌 
var 一 1.03; 
mn 一 500 
armakabpydymeanyvVaryRseed,XnD7y 
for 4 一 0Oii<3005 十 十 ) 

xXE] 一 xLi 十 200] 

二 300 
covar(XKnDyeyRv :07 
printf(* The coefficients of 和 AR modela”); 
for fi 一 0iic 一 pi 十 十 ) 

{ printJfafK 9%d) 一 上 10.7Lfna ,ivc[i])s 
Brintft7 The reilect coefticients of 各 RR modelsmn > 
Piinttt7Pe 一 邮 10, fn vi 
旨 一 1.0， 

Sigtma2 一 V; 
len 一 200， 
psdkb cq pysigma2,fs, xfireqyleny 1)y 
tp 一 fopenCeovarl.aqaty ww 7 
fori 一 0ii<lenyi 十 十 》 
fprintt gtp 7 坚 %lfsn” ,freq6] xD) 


fclose (ftpy; 
} 

运行 结果 ， 

AR 模型 的 系数 为 “ 
at0) 一 1.0000000 
al) = 一 一 1,.3991396 
af2) 一 1,.4286759 
af3) 一 一 0.6962182 
ad4) 一 0.2587227 

预测 误差 功率 为 
Pe 一 10999363D0 


其 功率 谱 如 图 3 一 2 一 3 所 示 。 
例 2:AR(4 模 型 如 下 
交 k 一 站 76zfm 一 ]) 十 3.809 关 (一 2 一 2854zf 一 3) 十 日 .9247( 一 4) 一 庆 人 人) 


其 中 ( 四 9 是 零 均 值 . 单 位 方差 的 白 嗓 声 .这 是 一 个 认 带 随机 过 程 . 用 协 方 差 方法 供 计 AR 
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功率 谱 密 度 (aB) 





已, 之 口 .本 
好 一 化 频率 


图 3 一 2 一 3 宽带 AR 模型 的 幼 率 谱 
参数 ， 并 进行 谱 估 计 。 
主 责 数 程序 (文件 名 :covar2, my): 
并 incluqe "stdio.h2 
并 inciude ”armaey 
亲 inelude ”covat. cy 
间 include * 疡 SQ cr 
main() 
{ int inypqylens 
long seed; 
double vv,meanyyaryeLl0],x[300] ,freqL200]; 
dotuble 各 ,sigtma2i 
static double a[L5] 一 11.0， 一 2.76，3. 809， 一 2 654，0， 8241j 
static double bf1] 一 人 1.0}; 


FILE xp# 
P 一 4 
qd 一 0; 


seed 一 135791 
Imean 一 0. 0; 
varT 一 1.05 
嫉 一 500; 
artinatfab ,DimeanyvaryRseedy yn) 
for 人 一 OH<3005 十 十 ) 
xf] 一 x 人 十 200J; 
n 一 3005 
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一 caareeeyyayem_ ma veinreeaee me 一 一 一 一 一 一 一 -一 一 





covarfxinypyeyev:0)5 
printfgnThe eoeftficients of 上 R modelvnr 3 
for fi 一 Di< 一 站 ii 十 十 》 

{ printf(”aK 由 id) 一 申 10.7lfsa" ,ivc[i 了 7 } 
printiCzThe refiect coe 抽 cients of 和 R modeln7 ) 
brintfgrPe 一 中 10.7lfn* vvyi 


臣 一 11.04 
sigma2 一 Vi 
len 一 2001 


psdtbyc,qypysigma2 fs ,xireqyleny1); 
也 一 各 pemf*eovar2. .dat yw 
for 在 一 0i<ieny 十 十 ) 
fprintftp ,” 邓 人 fn” ,freqLi 村 ,和 xD y; 


fcloseCfipy>: 
} 

运行 结果 : 

挟 RR 模型 的 系数 为 
ak0 一 T.QO00000 
afK1) 一 一 2.7310949 
ak25 一 3.7478402 
af3 一 一 2.85951549 
ad 一 0.9022404 

预测 误差 功率 为 
Pe 一 1.0055264 


其 功率 谱 如 图 3 一 2 一 4 所 示 。 
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功率 谱 密 麻 4d8》 


轿 3 一 2 一 4 罕 带 AR(d) 模 型 的 珊 率 谱 





$2.7 Burg 谱 估计 算法 


一 、 功 能 
用 Burg 算法 估计 AR 模型 参数 ， 进 而 实现 功率 谱 估 计 。 
二 、 方 法 简介 


平稳 随机 序列 (na) (一 0, 1 一 1 的 ARCp) 模 型 为 
() 十 这 交 (一 人 一 记 ( 


其 中 ai 人 一 1,2,……) 是 和 及 系数 ,Go) 是 均值 为 只， 方差 为 邓 的 白 噪声 。 


用 Burg 算法 估计 AR 模型 参数 的 具体 步骤 如 下 : 
1 初始 化 


(0) 一 二 总 lzGal 


po 一 refO) 
() 一 区 1 一 12M 一 1 
人 (2 一 《和 ) 儿 位 一 上 1 一 2 
2 对 于 上 一 1,2,…,p, 进 行 如 下 计算 ,从 而 得 到 各 及 参数 
六 一 1 
一 2 之 ef CaDe-iCn 一 ] 
位 外 下 一 一 1 2 
> (| 二 | 改 -Ca 一 1 
丘 一 下 


Et 人 有 一 信 -1CE) 十 Gai( 玫 )》 2 一， 一 2 一 工 
次 一 〔1 一 |a4( 下 ?》 本 -1 
狼人 一 本 (ma) 十 同 ( 虹 ) 改 -1( 一 下 天 一 下 十 1 下 十 2 一 
本 (ma) 一 加 -Cn 一 1) 十 oa()ef ia 一 下 天 十 1 一 2 
其 中 预测 误差 功率 p 等 于 激励 白 品 声 的 方差 中 ， 
用 AR 模型 参数 的 估计 值 , 可 以 计算 功率 谱 蜜 度 


yw= 一 一 二 
1 十 六 ia 人 ie 天 
三 、 使 用 说 明 
1， 子 纲 北 语句 
woid burg(Xmhpyasy) 
2 有 形 参 说 明 


x 一 一 双 糖 度 实 型 一 维 数组 ， 长 度 为 n。 存放 随机 序列 。 


1 
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na 一 一 整 型 变量 随机 序列 的 长 度 。 

P 一 一 整 型 变量 。AR 模型 的 阶 数 。 

a 一 一 双 精度 实 型 一 维 数组 ， 长 度 为 人 p 十 1), 存放 AR 模型 的 系数 a(0) ,al 
办 ) 。 


v -一 双 精 度 实 型 指针 。 它 指向 预测 误 莽 功率 p, 即 AR 模型 激励 白 噪 声 的 方差 考 。 
四 .子孙 数 程序 (文件 名 ,burg,c) 


并 tncelude ”stdiip.h” 
void burgfxynybyayvyy) 
Int hyb; 
double #*v，aL jxL ]; 
{ int 1 攻 ; 
double r0:sumqd,sumny xzhbyxef，xeby 
hb 一 mallocK(p 十 1)x sizecfCdoubley7# 
ef 一 mallocCn x* sigeof(double)); 
ehb 一 malloctn * sizeoffdouble 
alL0] 一 1.0; 
to 一 日 .Di 
for(〈i 一 D;i<mnjii 十 十 ) 
{ tr 十 一 xf]<xFijAnay 》 
v[L0] 一 Y0i 
fer 0 一 15i<nii 十 十 ) 
f ef[i 一 x[i]; 
eb[Li 一 1] 一 xi 一 匡 ; 
for kk 一 1ik 忆 一 b 让 十 十 ) 
{ sumn 一 0.0# 
smid 一 0.0; 
fotr 得 一 kiEenii 十 十 》 
{ sumn 十 一 efLi]xebLi 一 1; 
stumd 十 一 efLi]xeft[i 十 ebLi 一 11*ebU 一 1 
aLkj] 一 一 2xsumnAsumd 
forf 《i 一 135i<<kii 十 十 ) 
{brij 一 a[i 让 十 ak]xakk 一 和] } 
for 人 一 TH<kii 十 十 》 
fa 一 bb) 
v[oj = .0 一 a[k]xa[k])yxv[0] 
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for 三 各 一 切入 六 一 全 十 1 下 一 一 ) 
{ ef 让 二 ef 人 一 ak]xebli 一 1]; 
eb0i 一 匡 一 ebfi 一 2] 十 a[Ck]sx ef 一 1 
} 
} 
treekbys 
free(ke 和 ; 
freefeb)y 


五 例 题 


例 1:AR(4 模 型 如 下 
8) 一 1.352x(8 一 1)》 十 1.338xz(m 一 2) 一 0.6627(n 一 3)》 十 亿 24 和 人 一 4) 一 矶 (Pa 
其 中 w(oD) 是 零 敬 值 , 单 位 方差 的 白 噪声 。 这 是 一 个 宽带 随机 过 程 。 用 Burg 算法 估计 AR 
参数 ,并 进行 谱 估计 。 
主 画 数 程 序 (文件 和 xburg1l， 1 
桩 inelude "stdio. hy 
六 incluqe "arpmnav cy 
划 include "burg, en 
术 inelude "psd.c” 
main( ) 
f int inaypbpyqieny 
long seeds 
double vfs ,meanyvarysigrma2 
double cf20],x[500],freq[200]; 
static double aL5] 一 {1.0， 一 1.352，1.338， 一 站 662，0.、 24}5 
static double btLlL] 一 人.0)》; 
FILE *fp; 
P 一 43 
Q 一 0 
seed 一 135791; 
fneam 一 日. 人 # 
var 一 .0; 
jn 一 500; 
artmaftaybypy qimeatnyvary 名 Seed xn》 
far 扣 一 0H< 3003i 十 十) 
x[ ii = xf[i 十 200]， 








嫉 一 300 

burgfCxynypycyavys 

PrinttkrThe Coefficients of AR rodelvn”) 
fer fi 一 0ii< 一 Pi 十 十 ) 

4 printieyar 迪 G) 一 多 10.7lfn ycti)y 
Printt (The Prediction Error Power of AR modeivn” 7 
printffnrpe 一 邮 10.7lfnyvy71 
lena 一 200) 
fs 一 1.0 
Sigtma2 一 V; 
bsd(bcyqypysigma2fs,xyfreqyleny, 17; 
ip = 一 fopen("burgi.daty yw ) 1; 
fier ki 一 Dji<lensi 十 十 ) 

Printtftp 2 且 许 品 1nyw freqa[i 了 ,xi 3 


feioserfp 7 
} 

运行 结果 ，; 

AR 模 狂 的 系数 为 
at0)] 一 1.0000000 
ak1l》 一 一 1.3990654 
af2) 一 1.4266702 
ak3) 一 一 0.6989958 
afg4: 一 上 2611651 

预测 误差 功率 为 


Pe 一 1.0116348 
其 功率 谱 如 图 3 一 2 一 5 所 示 。 


| 功率 诺 窗 诬 (dB) 





- 曲 0 ,1 


摊 一 北 频 宁 
血 3 一 2 一 5 宽带 AR(d) 模 型 的 动 率 谱 
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例 3:AR(4) 模 型 如 下 
fm) 一 2.76z(n 一 1 十 3809r(n 一 2》 一 2654z( 一 3 十 D 9247( 有 一 4) 一 o 人 9) 
其 中 (是 零 均 和 值 、 单位 方 芝 的 白 噪 声 。 这 是 一 个 这 带 随机 过 程 . 用 Burg 算法 个 计 AR 
参数 ， 并 进行 谱 估 计 。 
主 芽 数 程序 (文件 名 :burg2. m)，; 
划 inctude "stdio ph 
提 include ”armae en 
共 inelude ”burg, cn 
并 inelude ”psd ec 
mainf 7) 
{ int isnyb qieny 
long seed; 
double Y ,fmieanyvarysi 帮 ma2 
doubie cL20] ,xL500]j,freqL200]; 
static double a[L5] 一 和 .0， 一 2.76，3. 809， 一 . 65 和 本 ， 人 .024 
static doubie bf ] 一 1 


FILE *p; 
P 一 45 
9 一 昌 


seed 二 1357914 
mean 一 站 .0 
Var 一 10; 

一 50013 
arinatfaybDyqsytmneanyvarygseed xn7j 
for (一 0i<30051 十 十 ) 

x[i 一 xi 十 200]# 
nm = 3004 
burgkCxynypyeygv)5 
PrintttThe Coeftficients of 和 R modelvny7y 
for G 一 0 一 Di 十 十 》 

{ ptintffKzaf 昕 上 ) 一 站 10.7ta ,ice[i)， } 
Printt "The Predietion Error Power of AR modelwny 3 
PrintttPe 一 10.71fnv vi 
len 王 200j 
世 一 1.04 
sigtma2 一 V# 

Psdtbc,qgypyaigma2 ,fs,xfreqylen,1) 
和 一 pentbuarg2.dat wj 
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fior 人 G 一 0Oii<lenil 十 一 》 
fprintf (ip ,” 听 正 肥 ]fa” ,freq[ 让 ,xD 
feloseCftp7i 
} 
运行 结果 ， 
AR 模型 的 系数 为 
at0) 一 1.0000000 
ay 一 一 2 7374704 
af2) 一 3.7568198 
afK3)》 一 一 2.6013084 
ad 一 0.9025563 
预测 误差 功率 为 
Pe 一 1.0109662 
其 功率 谱 如 图 3 一 2 一 6 所 示 。 


功率 谱 密 度 [dB) 
己 





.1 已 ,2 0 .5 


归 -- 化 师 率 


鲜 3 一 2 一 6 率 带 AR(4) 模 型 的 功率 谱 
$ 2.8 最 大 似 然 谱 估 计算 法 


一 、 功 能 


用 Capon 提出 的 最 大 似 然 方 法 进行 功率 谱 估计 。 该 算法 实际 上 是 对 功率 谱 必 无 俩 最 
小 方差 侍 计 ， 它 比 Burg 谱 佑 计算 法 分 辩 率 稍 低 ， 但 更 加 稳定 。 


二 、 方 法 简介 


设 随 机 序列 为 zz(00,1，… 一 1)， 其 自 相 关 和 矩阵 为 R， 则 在 频率 。 处 的 最 大 似 然 
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葛 率 谱 估 计 为 


其 中 


] 
Pet) 一 责 COJREECO 


吾 (o@) 一 [1 ee 和 el 


当 用 最 大 似 然 法 进行 AR 模型 的 功率 谱 个 计时 ,可 以 证 明 ,最 大 似 然 谱 估计 与 AR 模 





型 谱 佑 计 的 关系 为 


1 1 
SCoy 2 
该 式 表 明 ， 最 大 似 然 谱 个 计 的 倒数 等 于 i=0，1，…， 声 阶 ARGD 模 型 谱 估计 的 倒数 


和 ,从 而 可 以 用 Burg 谱 居 计算 法 来 计算 最 大 似 然 谱 估计 。 最 大 似 若 谱 估 计 比 Burg 谱 佑 
计 分 辨 率 稍 低 ,但 更 加 稳定 。 


值 。 


三 、 使 用 说 明 
1. 子 函数 语句 


void mlmtxynayptimyfsssyfreqylenssdby) 
2， 形 参 说 明 
x -一 - 双 精 度 实 型 一 维 数组 ， 长 度 为 n。 在 放 随 机 序列 。 
mn 一 一 整 型 变量 。 随 机 序列 的 长 度 , 
pm 一 一 整 型 变量 。 进 行 最 大 似 然 谱 估 计时 所 用 AR 入 型 的 最 大 阶 数 。 
共 一 一 双 精 度 实 型 变量 。 信 号 的 采样 频率 。 
s 一 一 又 精 训 实 型 一 维 数组 ， 长 麻 为 ltn。 存 放 最 大 似 然 功率 谱 。 
freq 一 一 双 精 度 实 型 一 维 数组 ， 长 度 为 ln。 存放 与 最 大 似 然 功率 谱 相 对 应 的 频率 





len 


整 型 变量 .功率 谱 密 度 的 数据 点 数 。 
sdqhb 一 一 整 型 变量 。 用 来 指明 输出 功率 谱 的 形式 。sdb 一 0, 线性 功率 谱 ; sdb = 1， 


用 分 贝 才 示 的 功率 谱 。 


四 、 子 函数 程序 (文件 名 :mlm.c) 


并 include "imath, hy 
并 ineluqe ”stdlib, he 
间 jinclude ”burg.ey 
void mntxznaypm 和 streqienysdby》 
int nypPrmylen,sdb 
double fsyx[J,s[C]:ftreqg[]i 
{ intiy KE Pi 
doupble vaivaryitmyre 列 :zrysaryamEgytpiy， 北 生 # 
a 一 malioct(pm 十 1)<#sizecoftdouble77; 
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tpi 一 8 个 #atanf1. 7 
for ki 一 0yi<iensi 十 十 ) 
fs 一 0.05 》 
for 人 一 0 所 一 ptmjp 十 十 ) 
1 burg(xynypyargv) 
fot 人 t 一 0E<lenisk 十 十 ) 
{ ang 一 长 x 0.570en 一 17)} 
freq[ 攻 ] 一 ang 关 全 ; 
2 一 CO8( 一 tPix an 名 7 
zl 一 sin 一 tpix angy) | 
arT 一 属 . 刘 ; 
ai 一 昌 .04 
for 1 一 Piir0Oii 一 一 ) 
{re 一 ar 
im 一 815 
ar 一 《re 十 a[i] yxzgr 一 im#zii 
ai 一 (re 十 abi]7xi 十 imx2ri 
】 
圭一 上 十 1 0 
Sar = 一 Vi sarsar 十 下 关 8i)5 


sLKk] 一 s[LK] 十 1,0Asari 


} 
fcr (长 一 0ik<lenigk 十 十 ) 
{ sfk] = pmysLK]; } 
让 (sdb = 一 1) 
{f for 全 一 05K<Ienig 十 十 ) 
{s[k]j 一 10.0xlogl0ks[Lk]) 》 
} 
free(a73 


} 


五 、 例 题 
例 1:AR(4) 模 型 如 下 


光 () 一 1.352r 人 8 一 1) 十 1.3387 人 一 2) 一 0.662z0a 一 3) 十 0.24r(m 一 4) - fm) 
其 中 w(a) 是 霍 震 值 .单位 方差 的 卢 曲 声 。 这 是 一 个 宽带 随机 过 程 。 用 最 大 似 然 方法 进行 


功率 谱 估 计 。 
主 阴 数 程序 ( 文 件 名 :mlml. my) ， 
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并 inelude ”stdio. hy 
##include "arrmaae ez 
提 include "mlm.cy 
tmainf 
tint inpsqsbpmylenysdby 
long seed; 
douhbie fs ,meanywvar# 
static double xL500j,freq[1001,s[100]; 


statie doubie a[5] 一 《1.0， 一 1.352，]1.338， 一 必 662，0. 2 
static double b[Ll] = 11.0)}; 


FILE xf 
B 一 4; 
日 一 04 


seed 一 1357 引 3 

mean 一 0. 0 

Yak 一 10 

mn 一 500; 

arrmatkayb; pqrnmeamnyvary&seed xn)i 

fozr 一 DO5i<300ii 十 十 ) 

{ xf 一 xD 十 2001; )} 

mn 一 300; 

len 一 001 

在 一 10; 

sqdhb 一 1 

pm 一 7# 

milmtxnpbrmyfsysyfreqylenysdb) 

他 一 fopengkymlml. daty ww 7 

for ki 一 Oilen3i 士 十) ， 

{ fprinttCfp 奴才 昕 lfnw ,freq[ijs[i]); )} 

felose(fp]， 
运行 结果 ， 
宽带 ARtd4) 模 型 的 动 率 谱 如 图 3 一 2 一 7 所 示 。 

例 2:AR(d4) 模 型 如 下 

YX 一 276 人 一 1) 十 3.809zfn 一 2) 一 2.654z(3 一 3) 十 0.9247(ma 一 4)》 一 节 人 2) 
其 中 四 (是 零 均 值 .单位 方差 的 所 嗓 声 。 这 是 一 个 窗 带 随机 过 程 。 困 最 大 似 然 方法 进行 
劲 率 谱 估计 。 
主 函 数 程序 (文件 名 :mtm2,rmy)， 
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动 率 谱 效 度 (dB) 


0.2 0.3 04 
归 一 化 频率 


图 3 一 2 一 7 宽带 AR(0d4) 标 型 的 功率 谱 

#include ”stqdio. hy 
共 include ”artna。 cy” 
#inclade ”mlrm,ecy 
taint 
fint inypyqrpimylenysdb 

long seed; 

double 1 ,meatyvary 

static double x[500],treqfl001,s[0100] 


static double a[5] 一 (1.0， 一 2.76，3, 809， 一 2. 6054， 人 924 1) 
static douhblte b[1] 一 1.0) 


FILE * Ti 
p 一 4; 
日 全 站 


seed 一 1357915 
Tean 一 有. 0 
VE 一 0 
n 一 500; 
attmnafaybypy qineanyvar tseed xn)i 
for 一 0 3005 十 十 ) 
{x[i 一 xD 十 200]; ) 


D 一 300; 
len 一 1008 
和 一 1.0; 
sdb 一 1; 
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一 


pm 一 10; 
mlmtxnyptmyfssyfreq:len,sdb); 
也 一 foepenfninlm2.daty ,rw ); 
for 《一 0ii<lenii 十 十 ) 
{ fprintfCfp，”% 直 %lfsn" ,freq[ij,s[i]y;，》 
fcloseffp)， 
运行 结果 : 
罕 带 AR (4) 模 型 的 功率 谱 如 图 3 一 2 一 8 所 示 。 
40 
Jo 


20 


功率 谱 密 诬 4dR) 


图 3 一 2 一 8 奉 带 各 R0) 模 型 的 功率 谱 





间 .5 
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第 三 章 ”时 - 频 分 析 


3 3,.1 维 格 纳 CWigner) 分 布 
一 、 切 能 
用 解析 信号 和 快速 傅立叶 变换 计算 维 格 纳 CWigner) 分 布 。 
二 、 坟 法 简介 
设 连 续 信 号 (0 的 解析 信号 为 zx(0), 则 5 的 Wisner 分 布 定 文 为 














人 一 | (人 十 可) 训 一 一 六 ) 已 Termrr ct 
序列 *CD) Ge 一 0 1 一 1) 的 商 散 解析 信号 为 "Co 则 2) 的 离 做 Wigner 分 布 定 
证 个， 交 ( 呈 十 同一 


其 中 M 是 窗口 长 度 。 
离散 Wigner 分 布 的 计算 方法 如 下 ， 
1， 解 析 信 号 zx) 的 计算 
(GD) 计算 序列 so 的 N 点 FFT, 得 到 SC 一 0 JN 一 1 
《2) 构造 各 k) 

















站 ， 中 一 日 





共 人 一 123 (是 》， 一 2 
.0 ， 其 它 
《3) 计算 蕊 ( 扩 的 快速 傅 立 计 反 变 换 , 得 到 解析 信和 导 zfza)。 
2， 计 算 下 式 
|2za 十 五 》 了 ”天 7 人 委 - 7 志和 


Cs 一 i 
ze ， 本 之 诉 入 李 一 





3. 对 变量 普 ， 计算 ctz;za) 的 快速 傅立叶 灾 换 (FFT) ,得 到 第 二 时 刻 的 宛 igner 分 布 
到 


4， 移 至 下 一 个 窗口 ， 重 复 步 又 2 和 3， 直 圣 计 算出 所 有 时 刻 的 Wigner 分 布 。 
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三 、 使 用 说 明 
1， 子 函数 语句 


void wignerkCxynyfs,nln2,mfname) 
2， 形 参 说 明 
x 一 一 双 精 度 实 型 一 维 数组 ， 长 度 为 n。 存 放 输入 序列 ， 
训 型 变量 ， 输 入 订 列 的 长 度 。 
fs 一 - 双 精 度 实 型 变量 。 信 和 号 的 采样 频率 。 
nl 一 一 整 型 变量 。WWigner 分 布 的 起 始 时 刻 ,nl 六 m。 
n2 一 一 整 型 变量 。Wigrer 分 布 的 终止 时 刻 , n2<n 一 m， 
m 一 一 整 型 变量 。 机 jigner 分 布 的 窗口 长 度 , 必须 是 2 的 整数 次 生 。 
fname -一 字符 型 指 任 变 量 ， 它 指向 Wigner 分 布 的 数据 文件 名 。 


四 、 子 元 数 程序 (文件 名 :wigner.e) 


并 incluqe ”stdic.h” 
划 include "stqlib. hm 


葵 inpclude “analytic.e” 








也 








void Wignerfxnyfs nlyn2ymyfname) 
int msn nlyn2y 
char fame[ ]; 
dotble fs,xf]; 
1 int is 
double am freqy， 闪 yy， 藉 ST， 关 8 
FILE *fpP; 
void ft 人，analyticfDi 


sr 一 mallocftm xx sizeof(doubley ); 


巴 。 


sl 一 mallocfrm * sigecftdoubley)3 
y 一 mmalloekm yx sizeof(double >); 
amalyticCxsysn7i 
fp 一 fopen(fname ”wy 7y 
for (一 nlili<n23 十 十 ) 
{ for (一 0ij<<my23;j 十 十 ) 
fsr[j] 一 xDi 十 订 * 天 Di 一 说 十 YE 十 订 <y[ 一 j; 
si[i 一 y 臣 十 语 * Xi 一 让 一 x 和 十 订 关 [ij 
for 全 王 /2 和 < 和 中 十 十 》 
{f sr[j] 一 xi 十 j 一 ma] *XCDi 一 ji 十 m] 十 YL 二 jj 一 中] 7 下 一 ;十 a] 
si[LHj] 一 y 下 十 j 一 ms#<xLi 一 j 十 四] 一 xi 十 j 一 mxyLi 一 j 十 和 mn] 








} 
fitfsty siymy 1 
for 一 05j<mjii 十 十 ) 
Lam -2x sqrt(sr[ xsrC] 上 siDi] xsi[ 门 ) 
妇 eqy 一 ] 全 人 2.0DxmD)y 
fprintfgfp 几 人 01 fn ifreqyyarm2s 


} 
fcelose(ftp7y 
freetsr)j 
fteefCsi)y 
freegy)# 

} 


五 、 例 题 


例 1: 线性 调频 信和 号 xi) 为 
zt) 一 cos[L2r ( 户 十 0.3517 六 ] 
选取 参数 方 一 1,，A=- 210, n 一 256, nl 一 40,n2 一 102,m 一 32,， 数据 文件 名 为 wign- 
erl.dat。 计 算 其 克 igner 分 布 。 
主 末 数 程序 (文件 名 :wignerl. my) ， 
其 include ”stdio. Rh 


共 inelude ”mat 拉 .ho 





并 incrude ”mw 诊 ner, ec” 
mainf) 
{ jint iynymnaln2， 
double 红 fs,Pii 
static doubie x[256]， 
chasr fname[L] 一 ”wjignerl. dat 
void wignertDi 
Bi 一 4. 太 #atanfl.0O); 


刀 王 1; 
本 一 210! 外 
了 一 256; 


for (ii 一 0Oiicnii 十 十 》 
{ [一 cos(2 关 Disixrfl 二 ixD357Afs73 


Im 一 32; 
nl 一 二 0 
n2 一 1021 
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Wigner(xzynyftsnlyn2mtinarne) 
} 
运行 结果 : 
线性 调频 信号 z( 妇 的 Wigner 分 布 如 图 3 一 3 一 1 所 示 。 


100 100 


时 
时 间 








40 128 SO 4 28 9 
199 6 4 2 9 炳 率 (Ga) 


频率 (Hz) 
图 3 一 3 一 1 ”线性 调频 信号 的 克 iner 分 布 图 3 一 3 一 2 ”调频 信号 的 克 igner 分 布 


例 2: 调频 信号 zi 为 
Yi 一 0s[2rr (六 十 48cos(2 刘 六 7] 
选取 参数 六 一 50， 六 =1， 六 = 210, mn 一 256，nl 一 40，n2 一 102,m 一 32， 数 据 文件 名 为 
wlgner2. dat。 计 算 其 Wigner 分 布 。 
主 函 数 程序 (文件 名 :wigner2.m): 
划 includqde ”stdio. Ph 
划 inciude "math. h” 
#include ”wigner cn 
tmaintf ) 
{f int iynyrmynln2; 
deuble fe ,fm ,fs ,Pis 
static double x[256]; 
char fname[] 一 ”Wigner2. dat7 
void wighetf ); 
人 一 40x#<atanfl.0)3 
fs 二 210.0; 
fc 一 50.0; 
3T7 


fm 一 1.0; 
是 一 206 
for 0 一 Dii< ni 十 十 ) 
{ 同一 gosf2 关 Disigfss (fc 十 48eosf2 关 和 关 str 


tm 一 32; 
D1 一 直 避 多 
nz 一 1102 


wiignertxrnyfsnln2ymyfname)s 
运行 结果 
调 冰 信号 rG? 的 到 ijgner 分 布 邵 图 3 一 3 一 2 所 示 。 





8 3. 2” 亢 散 小 波 变 换 





一 -、 功 能 
用 Mallat 算法 快速 计算 一 维 离散 小 波 变换 。 
二 .方法 简介 





小 波 谈 换 是 把 信号 zt 表示 为 一 簇 郴 数 的 加权 和 ， 而 这 复 蚌 数 是 由 基本 小 波 六 ( 门 经 
过 伸缩 和 平移 而 形成 的 。 伸缩 尺度 为 .时 间 平 移 为 问 的 小 波 入 .50 定 习 为 


] 1 去 殊 ， 
到) 一 妥 |- 一 | 中江 站 
VET 2 














连续 小 波 变换 多 .Ce 所 定 浆 为 


1 广 [一 
克 (ay2) 一 -二 -| 2 于 | -一 一 | 
Y el” 


对 参数 a 和 进行 离 烙 化 , 远 取 a 一 嘻 ，p 一 Auaiteo1 20) 那么 离散 小 波 为 
更 人) 二 6 有 at 一 有 
于 是 ,离散 小 波 变 换 定义 为 


dr 到 0 岂 


者 一 2, 名 王 1， 那 么 离散 小 波 灾 换 则 称 为 “ 进 小 波 变换 .此 时 ,二 进 小 波 为 
曾 一 2 记 [2 一 胡 ) 
二 进 小 诚 变 换 定 尽 为 
好 一 国 区 人 囊 人 
其 反 变 换 为 
2 一 了 加， 囊 ee() 
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二 进 小 波 变 换 的 Mallat 算法 如 下 ， 
正 变换 算法 : 
| es 一 >， 矶 。 咪 区 in 


吧 一 >，B ， 
其 中 cs 是 原 俏 号 的 平滑 信号， 忆 .* 是 细节 信号 ，gv 是 与 小 波 函 数 相 关 的 带 通 滤 波 器 的 及 
冲 响应 ，A, 是 与 尺 庆 函 数 相关 的 低 通 滤波 器 的 脉冲 响 庶 。 
反 变 换 ( 重 构 ) 算法 ， 
cs 人 >[ 丽 cs 十 Ba 一 1 一 


于 一 2 





三 、 使 用 说 明 


1， 子 函数 语句 
正 变 换 ; 
void qdwt(Cg 由 ,wwlenycysdymyscay) 
反 变 换 : 
void idwrtCgybhywlenyedymyssa) 
2， 形 参 说 明 
g 一 一 双 精 度 实 型 一 维 数 组 ， 长 度 为 wlen。 尺 度 系数 。 
h ~ 一 双 精 度 实 型 -一 维 数组 ， 长 度 为 wlen。 小 波 系数 。 
wlen - 一 整 型 变量 。 小 波长 度 。 


ce ~- 双 精 度 实 型 一 维 数组 , 长 度 为 | 2n 一 向 | , 其 中 中 是 输入 信号 的 长 度 , 对 于 dwr 

















()3:0~ (scaLO] 一 1 是 输入 信号 ， Zeea[~ L>vseaD 门 ] 一 1 是 小 波 分 解 的 第 k 级 平 得 
信号 ; 对 于 idwt(): 开始 时 存放 原 信 号 和 小 波 分 解 的 各 级 平 请 信和 号 , 最 后 在 0 一 人 n 一 1) 内 
让 放 重建 信号 。 

d -一 双 精度 实 型 一 维 救 组 , 长 眠 为 | 2 一 号 | 。> /sca[i]~[ > sea[i] 一 1 是 小 波 
分 解 的 第 k 级 细节 信和 号。 

m 一 一 整 型 变量 。 小 波 分 解 的 级 数 。 . 
双 精 度 实 型 一 维 数组 , 长 度 为 人 Am 十 1) .存放 小 波 分 解 时 每 级 的 数据 长 度 。sca 
[0 是 原 信号 的 长 庆 ,sea[i] 是 小 波 分 解 对 第 i 级 的 数据 长 度 。 

四 ，、 子 函数 程序 (文件 有 名:dwt,c 和 idwt.c) 
正 变 换 子 果 数 (dwt,e)， 


Yotd dwttg hywlencsdymysca) 
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int mywlenysca[ ]; 
double ec[],dr],gO,hg]; 


引 19 


fint ijkymid,flag[L20 
double pq 
for 人 flagLoj 一 0,i 一 05i<mii 十 十 )》 

1 flag[Li 十 1] 一 flagDi] 一 sca[ii } 
brintfC" sn Doing decomposition :”) 3 
for 提 二 1 呈 过 一 mm 让 十 十 ) 

人 Drimntig 关头 关 和 

for 6 一 0:i<sca[j]yi 十 一 ) 
fP 一 0 
d 一 03; 
for (一 DiK<wlen;k 十 十) 
fmid 一 帮 十 2xi 


汪 (mid 之 一 scarDi 一 1]) mid 一 mid 





scalj 
bb 一 bb 十 h[k]xerilag5b--11+mid]， 
号 一 日 十 gLKJxceLhagD 一 十 mid 
} 
cLflag[Lj] 十 襄 一 p; 
dLHagDi 十 可 一 qi 
} 


把 变 换 子 函数 (idwt. ce): 
Yoid idwt fg,hwlencdmysca) 
int Imnywten,sca[]; 
double c[ ],dL] ,gsL]:h]， 
{ int jjk ,mid ,flag[L20]; 
double pb;q; 
for cflag[L0] 一 0,j 一 95j<mjij 十 十 ) 

{ fagLi 十 1 王 flag[i 十 scabji ) 
brintff” An Doing reconstruction :” ?4 
for (KK 一 mi 人 0 让 一 一 ) 

{ Printtk 关 基 其 交 )3 

for (一 Ori<cscafk] ii 十 十 ) 
{ 昌 一 0 
训 一 和 
for 0 一 Olen7 2 十 十 ) 
(mid 一 ii 一 ji 
320 





计 Kmid < 0 mid 一 seaLkj 十 (一 及 5 
pb 十 一 h[2x 门 * c[flag[k]Tmid] 十 gL2 # 门 <dLHagfk] 十 miq]; 
q 十 二 h[2xj 十 1] xcfflag 飞 Jinid] 十 gL2*j 十 1]xdLflag[k] 十 mid]; 


1 


上 
cLflag[k 一 1 十 2*i] 一 Pi; 
c[flag[k 一 1 十 2xi 十 1] 一 qi 


} 
五 例 题 


例 1:; 信 号 zi) 为 
(21 ， 0 所 i<R/2 
2 LsinfC2ti 所 ， PAST 下 一 工 
选取 参数 六 =5， 户 =10, 上 = 320,n = 512, 分 解 6 级 ,用 3 阶 Daubechies 小 波 对 该 信 
号 进行 不 波 变换 。 
主 天 数 程 序 (文件 名 :dwtl. mm): 
#ineluqe ”stdio, hy 
划 inelude ”math, hy 
基 inaclude ”dwrts cy 


共 incjnde "dwrt er 














main(》 
(int iyjymnywleny sca[203，flag[203; 
doubje fl ,2 全 ,Piyfreq 
static douhble ecL20001,dL2000 ] ; 
static double h[ 门 一 { 0. 332670552950，0. 806891509311，0. 459877502118， 
一 侣 135011020010， 一 0 085441273882，0.035220281882) 
static double g[] 一 { 0. 0352263， 0,08544127， 一 0.135011， 
一 0 4598797502118， 0.8068915， 一 0. 33267055》 
char d 一 namelLg] 一 "do. dat" ，c 一 name[8] 一 "ec0.dat" 
FIIL 王 * fpcy sfpd; 
void dwt(C)，idwt()y 
printf(r ninput the nutmnber of decomposing scalesNn7 ); 
Scanff 只 dm 
Printft sninput the lenght of the dataf<10007vn7 3 
Scanff dg) 
Pi 一 4. 器 基 atamnf1. 073 
所 一 50D; 


f2 一 10,0) 
研一 320. 0 
for (一 0yi<nyA2ii 十 十 ) 
te[i] 一 sinf2xDpixixtlAfs7y } 
for fi 一 ny2ii<cnyi 十 十 》 
{eLi] 一 sinf2sPiseixf2zfs7 ) 
fpd 一 fopentrdwtl .dat wwr2) 
for 人 一 0Oyi<n 广 十 十 ) 
{ freqQ 一 ixftsA2x#tn 一 1 
printttipa 上 % 直 邓 lfnr ,fregyc[il)， 


} 
telosetfpd7# 
j 一 0; 
flagLo9j = 0; 


for《i 一 0Oi< 一 mii 十 十 ) 
{ ftag[Li 十 1] = flagD] 十 ji 


sea[i] 一 j; 
j 一 j721 
} 
wlen 一 Bi 


dwt(g ywlenseydytnyscay， 
for 《一 二 一 职 和 十 十 》 
{ d-name[l1] 十 十 ; 
ec-name[l] 十 十 ; 
地 和 & 一 fopenkd-narme wy ); 
fpe 一 JopenKc-natme wy) i 
for 与 一 0j<scaLij;j 十 十 》 
{ freq 一 jj* 人 /2 (sca[i] 一 1775 
printfffpe 7 中 邓 lfsny ,freqvye[iiag[i 让 十 >; 
fprintftfpd, HE tar ,freq,d[flag[ 门 十 门 ) 
flosetfpdy; 
fclcseKfpc7# 
} 
for 人 一 OHi<seaLm]ii 十 十 ) 
{ cttlag[Lm] 十 让 = clfiag[m] 十 门 :) 
idwt[g 浊 ,wlenscydmysca)i 
fpd 一 fopengeidwrt1.dqaty 33 
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for 人 =0Oii<<nii 十 十 ) 
{ 丰 eq 一 让 x 牛 AT 一 1 
fprintf fpd wo%1 Win freqyeLi])y 


运行 结果 : 
逐 始 信号 和 重 构 信 号 分 别 如 图 3 一 3 一 3 和 图 3 一 3 一 4 所 示 。 


1.5 1.5 
1 .0 1.0 
0.S 导 0.5 
至 站 眉 白 .0 
囊 _05 -0.5 
一 1 怕 一 1.9 

5 40 8 120 7 40 80 1 如 

样本 序号 样本 序 导 
图 3 一 3 一 3 小 波 变 换 的 原始 司 号 图 3 一 3 一 上 小 波 变换 的 重 构 信 和 叶 


6 级 分 解 后 的 平滑 信号 4 一 1,2,…，,6) 如 图 3 一 3 一 5a ,图 3 一 3 一 5b .图 3 一 3 一 5c、 图 
3 一 3 一 玛 . 图 3 一 3 一 5 .图 3 一 3 一 攻 所 示 ,6 级 分 解 后 的 细节 信和 起 企 天 1; 2 6) 如 图 3 
一 3 一 ta、 图 3 一 3 一 和 .图 3 一 3 一 6c、 图 3 一 3 一 纪 、 图 3 一 3 一 6 图 3 一 3 一 红 所 示 。 


各 6 
4 结晶 
2.0 之 0 
于 00 0.0 
瑟 
一 立 站 半 
一 4 一 4.0 
一 如 如 一 避 - 心 
4 80 40 昌 129 100 
时 间 人 时 人 间 
第 -级 . 第 - 仅 
图 3 一 3 一 5a 图 3 一 3 一 弛 
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挫 巾 
属 所 
侣 必 
一 一- 


一 4 
-69 梧 机 1 亚 人 6 
时 间 
第 二 缀 
图 3 一 3 一 中 
6.0 
4.0 
2 
0.D | 
时 ，。 1 
一 4.0 
59 和 “本 T20 Tc 
幸 问 
第 三 
图 3 一 3 一 工 
8.0 
4.0 
2.0 
0.0 
时 。 
-2.01 1 
-4.0 
9 4 枫 
时 间 1 160 
第 四 级 
园 3 一 3 一 得 


324 


时 间 
第 二 级 
图 3 一 3 一 6 
6.0 
站 .站 
2. 站 
如 0 
束 
一 2.0 
4 
本 析 丁 1 丰 To 
时 间 
第 三 级 
图 3 一 3 一 8e 
5. 
4.0 
2 1 ， 
至 00 
率 
一 2 _ 
一 4 
0 有 
时 间 0 
第 四 级 
图 3 一 3 一 如 





村 二. 口 
之 .站 2 局 
站 .0 腔 心口 
量 于 
一 2.0 ~2.0 
一 可 一 本 . 癌 1 
-69 本 页 17 现 780 由 8 120 1 
时 间 时 间 
第 五 绷 第 五 级 
3 一 一 6 
本 部 1 列 T8 
时 间 
第 六 级 
图 3 一 3 一 持 图 3 一 3 一 时 
例 2: 信 和 号 zx 人 为 
0 和 总 扫 1 < Fa/4 
Yi 一 sin(2mt7AF) ， HA 2 
OO ， 8 和 1 扫 一 1] 


选取 参数 /一 10,， 六 = 320,， 一 512 ,分解 6 级 ,用 3 阶 Daubechies 外 波 对 该 信号 进行 小 
波 变 换 。 


主 函 数 程序 (文件 各 4 dwrt 过 ， tn) ， 
共 inelude "stdio, hw 
共 IncIude ”tmath. hw 
共 include *"dwt.ecy 
其 include "idwrt, er 
inaintf ) 
{ int jjymoavwlen， scaf 20] ,tlag[20]; 
doubje FEfs ,piyfreqy 
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static double ecL2000],df2000]; 
static double h 中 一 (4 0. 332670552950，0. 806891509311，0. 459877502118， 
一 0. 135011020010 ,一 0 085441273882，0.035226291882} 
static double g 口 一 { 0.0352263， 0. 08544127， 一 0. 135011， 
一 四 459877502118， 0. 8068915， 一 个 3326705514 

cehar 时 -namelL8] 一 *qn.dat” ，c-narmef8| 一 "en0.dat” 
FILE #* fpcy xfpd' 
void dewtgly idwtC)s 
Brintf 人 ”ninput the namhber of decomposing scales\" )i 
scanfk” 0%d” 8tm)， 
printf (ninput the lenght of the data(<1000)Nn" ); 
scanff” 的 dns 
pl 一 4.0+atanf1,. 07; 
于 一 10. 08 
fs 一 320. 0; 
for 《ii 一 035i<cny4ii 十 十 ) 

fei 一 0.0;} 
for 人 一 ndii<cnA2ii 十 十 ) 

{eLij = sinf(2xrPpixixfpfs) )} 
for 1 一 mn72ii<cnii 十 十 )》 

{e[ 让 一 0.0) 
tpd6 一 foepengdwt2.dat yw) 
for 捍 一 0ii<n 刘 十 十 ) 

f ftreq 一 ixfsA(2x (nn 一 177; 

fprintfffpa,” 3 上 双 lfnn ,freqyc[])， 
} 


fclosedfpaey3 
j 一 ni 
flagLo] 一 站; 


for 和 一 0 所 一 如 ii 十 十 》 
{ 拉 iagLi 二 1] = fag[i] 十 j 


sca[ 计 一 ji 
j 一 j72; 
} 
wWlen 一 6 


dwt(g,hywlenyceydmysca) 
for fi 天 1;i< 一 mii 十 十 ) 
{ d-name[l] 十 十 ; 
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c-natme[d] 十 十 ， 
fpd 一 fopen(d-namey ww yi 
fc 一 fopenkc-nameyw wx) 
for 人 一 05j<sca[i]jj 十 十 》 
{ freq 一 j#faA2x (sca 一 177); 
fPrintftpe 的 下 邮 jfn” freqayc[flagLi] 二 和) 
名 rintf(fpd:” 1 0%lfsanv ,freqydLflag[ 讨 十 让 7) 
} 
fclosefftpqy; 
felose(fpec7# 
for (一 0ii<<secaltm]jjii 十 十 ) 
{ cflag[m 十 襄 一 elflagfm]j 十 让; 》 
这 wtCghywlen.cydymyseca)s 
fpd 王 fopen(yidwt2, datr wy 
for 各 一 0D5i<ni 十 十 ) 
《freq 一 ix fs Cn 一 1)74 
纯 rintftfipd” 吕 让 风 直 ny freqye[i 订 3 





} 
} 
运行 结果 : 
原始 信 导 和 重 构 信号 分 别 如 图 3 一 3 一 ?和 图 3 一 3 一 8 所 示 。 
1.5 1.5 
二 总 1.0 
,5 厂 .5 
这 日 . 品 -和 尝 马 昌 
兴 与 未 一 局 .5 
一 1 局 一 人 二 
一 下 5 - 一 1 
4 昌 D 
的 伴 本 序号 样 村 序号 
图 3 一 3 一 ? ”小波 变换 的 原始 信号 图 3 一 3 一 8 “小波 变换 药 重 档 信 号 


6 级 分 解 后 章平 清 信 导 ci 人 一 1,2, 6) 如 图 3--3 一 9a .图 3 一 3 一 名 .图 3 一 3 一 9%、 图 3 一 
一 10a .图 3 一 3 一 10b、 图 3 一 3 一 10c .图 3 一 3 一 10d .图 3 一 3 一 10e .图 3 一 3 一 10f 所 示 。 
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4 中 129 1 
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时 间 
第 二 级 


图 3 一 3 一 10b 


B0 120 1 
时 间 
第 二 级 


图 3 一 3 一 10c 


一 1 性 


妈 
庶 -1.0 
-2.0 


0 
上 时间 
第 四 级 
图 3 一 3-- 细 d 
析 
上 时间 
第 五 级 
图 3 一 3 一 9e 
峙 间 
第 六 组 
图 3 一 3 一 引 
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n 辐 


图 3 一 3 一 10d 


的 
时 间 
第 五 级 





图 3 一 3 一 10e 


本 
时 间 1 和 
浊 





图 3 一 3 一 1 时 
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第 四 章 ”随机 信和 号 的 数字 滤 泊 


$4,1 维 纳 (Wiener) 数 字 滤 波 


一 、 功 能 
对 随机 信号 进行 维 纳 数字 滤波 。 
二 、 方 法 简介 


设 平稳 随机 序列 z(2? 由 信号 So 和 了 品 声 wm) 迁 加 而 成 
了 一 5 人》 十 到 人) 
我 们 希望 利用 以 往 所 有 的 ztz) 值 来 估计 当前 的 目标 信和 号 gx) 。 通 常 ，qgknr)? 具 有 如 下 形 
直 ， 
好 (2 一 32 十 玉 ) 

若 呈 = 0,， 则 是 滤波 问题 ; 若 六 委 一 1， 则 是 平滑 问题 ; 若 呈 空 1， 则 是 预测 问题 。 

根据 维 纳 滤 波 理论 ， 可 以 设计 一 个 二 只 FIR 数字 滤波 器 瑚 (ea 一 0 1 2) 用 它 
对 xm 进行 滤波 


由 
3CGn) 一 > 下 GD)z(m 一 站 
1 亚 由 


得 到 的 输出 >(z? 就 是 目标 信号 da) 的 最 小 均 方 误差 估计 。 
均 方 误差 定 尽 为 
五 (Sa 一 瑟 (LdCe) 一 了 (Cn7 
为 使 均 方 误差 最 小 ， 可 利用 正 交 投影 原理 ， 从 而 得 到 维 纳 - 霍 夫 (Wiener-Hopf) 方 和 


由 
Dru 人 一 站 GD 一 ra 人 ( 门 ， 了 一 0 1，… 思 
了 人 二 


即 - 
rzf0) raz&1》 人 7zz( 力 ) CO0) raxg0) 
_ raz 人 (17 Frxgf DO 2 Frszf 吉 和 1) 六 1) _ 7azK]y》 
re() rue( 吉 一 1)》 fxfg 0 《 轧 ) yc 区 访 )》 
最 小 均 方 误差 为 


疡 
min 玉 {ee 人 ny) 一 resfD) 一 > 光 (大 人 
让 用 


其 中 ra 人) 一 百 1 到 (十 站 邢 0) 是 dan 与 (82) 的 互相 关 国 数 ,rs 人 一 已 (zt 十 izrfa)} 是 
zfz) 的 自 相 关 函 数 , rak0) 一 匹 {d 人 na) 。 
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维 纳 -元 夫 方程 具有 托 布 利兹 形式 ,因而 可 咱 本 篇 $ 2.1 节 的 莱 文 夷 算法 有 效 好 
求解 。 


三 、 使 用 说 明 
1, 子 辆 数 语 名 


void wienerftxKyrdX Phseyxyyyn) 

2， 形 参 说 明 

rxx 一 一 双 精 度 实 型 一 维 数组 ， 长 度 为 人 十 1). 信和 号 xz 的 自 相 关 函 数 r-=(D 。 

rdx 一 一 双 精 度 实 型 一 维 数组 ， 琢 度 为 人 (p 十 1)。 信 和 导 @aCn) 与 z(nm) 的 互相 关 函 数 ra 人。 
，p 一 一 整 型 变量 ， 维 纳 滤 波 器 的 阶 数 。 

h 一 一 双 精 度 实 型 一 维 数组 ， 长 度 为 中 十 1) 。 维 纳 滤波 器 的 系数 。 

e 一 一 双 精 度 实 型 变量 。 维 纳 滤波 器 的 最 小 均 方 误差 。 

x 一 双 精 度 实 型 一 维 数组 ， 长 度 为 n。 存 放 输 入 信和 导 = 人 。 

y 一 一 双 精 度 实 型 一 维 数 组 ， 长 度 为 an。 存放 维 纳 滤波 后 的 输出 信号 y(G7。 

na 一 一 整 型 变量 。 输 入 信号 的 长 度 。 


四 、 子 离 数 程序 (文件 名 :wienere) 


#include ”levin，ey 
Yoid Wienerfrxxrdx Phoey xyon) 
int Poni 
double * esxL]jy[],hi],zxxf]rdx[]; 
人 int 
double sumey 
levingrxxyrdx)D 十 1 h7) 
SUI 一 昌 . 吕 
for 人 《i 一 5i<c 一 站 ii 十 十 ) 
{sum 十 一 rdxLi]#h[y 》 
xe 一 iTdx[L0] 一 sum 
for 修一 0k<cnsk 十 十 ) 
fy[Lk] 一 0.05 
for fi 一 0ii<< 一 pii 十 十 ) 
{ 让 《 人 在 一 让 闻 一 0) 
{ y] 十 一 h 和 ]*# x[k 一 这 
} 
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五 、 例 题 


例 1: 信 号 (na 的 自 相 关 函 数 为 ~ (一 4(9. 5)7 ,与 其 正 交 的 白 噪 声 v(a)? 的 方 关 
一 2, 输 入 信和 导 rn) 为 5 与 ba0a) 的 只 加 ,这 样 ru 一 rr 一 re 十 260)。 试 设 
计 一 个 2=2 阶 的 维 纳 滤波 加 。 
主 函 数 程 序 ( 文 件 和 名 :wieneri. my) ， 
共 include "stdio, hy” 
提 include "math, hn 
井 inctude ”wiener en 
ITnaint) 
{ intiypyasj 
double e,rxx[L3],rdxf31,hf3],x[101,yL10] 
五 一 1 
DP 一 23 
fer Ci 一 DFc 一 bf 十 十 7 
{f tdx[Li 一 杰 吕 xbpowf0.5y iD》 
ITxx[L0] 一 rdxLO] -十 2.0; 
for fi 一 13i< 一 pi 十 十 ) 
{ ITxKXLij = tdqxLijy 》 
WieneyfITXXy TUXDbhhRey xyrny 
printtftr eaThe Coefficients of Wienet Filterwn7 ) 4 
foer (一 05i< 一 Pii 十 十 ) 
{ printttrh( 吧 和 一 铬 10.7lfn ivhli])5 
printf (The Minitmum MSE Error 一 lfn" ie); 


} 
运行 结果 : 
维 纳 滤 波 器 的 系数 为 
ho) 一 0.6235294 
hl1) = 0.1176471 
h(2)》 一 0.0235294 
最 小 均 方 误差 为 


The Minimum MSE Error 一 1. 247059 
例 2: 设 :9) 为 一 个 AR 随机 过 程 
5 一 习 13 人 一 1 一 丫头 全 一 2 一 (Ge)》 
其 中 mm 为 零 均 俯 , 单 位 方差 的 自 噪声 。 又 设 zi) 为 so) 与 另 一 个 零 均 值 ,单位 方差 的 
和 白 侣 声 w(a) 的 挝 加 
ZK) 一 SC) 十 wa) 


其 中 zf 与 (oa 相互 独立 。 选 取 目 标 信 叶 dy=s(a， 这 是 维 纳 滤波 问题 ， 并 有 
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rdz 《ED) 一 Ta 人 一 far 《1 
re (划一 re (十 安信 
设计 维 纳 滤波 器 ， 并 对 序列 za 进行 小 波 。 
主 苑 数 程 序 (文件 名 :wiener2.m): 
东 inelude ”stdic. hy 
划 include "artmav ec” 
“ 间 include "wyierter. ez 
taint 
fint inypyipyig 
1ong seedi 
double e,meanyvar# 
static double a[3] 一 人 ,0， 一 0 1， 一 忆 8} 
static double b[l]l 一 {1.0}; 
static double rxx[L30],rdx[30]; 
static double hL30],x[L100],7[100],sL100]; 
woid wiener( yy 


FILE * 全 
ip 一 2 
刘 = 一 0 


seed 一 13579]4 
IneamD 一 小 .有 
var 一 1. 0 
有 一 1005 
armakayBb yi 这，Imeanyvary 隐 seed sn)i 
包 一 fopenfg”wieners, daty ww 
for 《一 0yi<nsi 十 十 ) 
{ fprintfftp 2 反 几 1ftsnw is[)7 
fctosettp7s 
seed 一 15715 
for ti 一 0ri<cnii 十 十 ) 
{ X[ 订 一 8 让 十 gauss(0.01.0: Rseed)y 
地 一 fopen(wienerx dat yw) 
far 〔i 一 08i<cnii 十 十 )》 
{ fprintfftp yw 由 本 弧 1fm ix[i)5 


felose( 人 fp) 
P 一 8 * 
fot 《一 站 < 一 p3K 十 十 ) 

{ rax[k] 一 0.0) 
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for ki 一 Dii< Cn 一 克 81 十 十 ) 
{ rdx[k] 十 一 sx*s[i+KJs 
rdxfK] 一 TGx[E ni 

上 
TYXX[LO] 一 rdx[L0 十 1.0; 
for 避 =1i<c 一 PP 和 十 十 ) 

{ rxXxLi] 一 rdx[Li]i } 
WieneTrXXTQXKD he Xeon) 
printftt* naThe Coefficients of Wiener FilterNny 7 ; 
for 牛 一 0ii<< 一 bi 十 十 ) 

{ printffrho%dy 一 10.7tHsa" ivhLijys } 
printftrThe Minimum MSE Error 一 折 1n7 ee 
fp 一 fopen(?vyrienery。dat” ”ws 
for 上 一 0H<nii 十 十 ) 

《1TPYintTCib 7 昕 昌 双 Lfsav isy[i]7 》 


felese(fp)r 
送行 结果 ， 
维 纳 滤波 器 的 系数 为 
ht0) 一 0.5763951 
人 >》 一 日 ,0091187 
h(2》 一 0.2055788 
h(3) = 0.0342110 
h(4》 一 0.0696614 
hkK5》 一 0.0109759 
hC6) 一 0.0182548 
ht9?> 一 昌 ， 昌 28862 昌 
hk(8)》 = 0.0156630 ， 
最 小 均 广 误 部 为 
The Minimum MSE Error 一 0. 576395 “ 


信号 *(z)、 选 加 噪声 的 输入 信和 号 =(z7 和 滤 0 
波 后 的 输出 信号 Cn) 分别 如 图 3 一 4 一 1、 总 ， 
3 一 4 一 2 和 图 3 一 4 一 3 所 示 。 





图 3 一 4 一 1 术 号 sf 
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BO 80 1 
n 


图 3 一 4 一 2 选 加 邑 声 的 输入 信和 号 ztm 





图 3 一 4 一 5 维 纳 滤波 后 的 输出 信号 >Gm7 


.4.2 卡尔 曼 (Kalman) 数 字 滤 波 


一 、 功 能 
对 随机 信号 进行 卡尔 曼 滤 波 
二 、 方 法 简介 


离散 线性 系统 的 状态 方程 和 观测 方程 为 
天 :一 瑟 1 十 了 十 BT 
一 再 :Ex 十 人 


其 中 , 总 是 ” 维 列 向 量 ， 表 示 第 上 时 刻 系统 的 状态 下 ， ;是 mxXnm 维 状态 转移 矩阵 记 ， 
是 ”= 维 定常 列 向 量 , 7 是 标量 , 表示 系统 的 输入 信号; 瑟 是 xXz 维 定常 矩阵 ， 多 


t 基 和 
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维 列 向 量 ， 表 示 动 态 噪 声 ; Z. 是 标量 ， 表 示 观 测 值 ; 豆 , 是 ” 维 行 向 量 ， 称 为 观测 矩 竹 ; 
f 是 标量 ， 表 示 观 测 噪声 。 
动态 噪声 与 观测 曲 声 的 统计 特 柱 为 
瑟 [ 琴 可 一 0 ， 下 HT ] 一 Gapu 
二 LV 一 0 ，ETFeY7] 一 民 8 
王 [HWAY7T] 一 0 
其 中 心 是 详 Xm 维 的 动态 噪声 太 , 的 协 方差 阵 ; R, 是 标量 , 表示 观测 吕 声 Ps 的 协 方差 。 
卡尔 曼 滤波 就 是 从 初 值 况 一 瑟 [X] 和 .Po( 给 定 ? 出 发 ,利用 上 面 的 状态 空间 模型 和 观 
测 值 2, 递 推 地 计算 出 每 个 时 刻 的 状态 估计 六 。 具 体 算法 如 下 ， 
误 一 古 ， 十 DID ~ 
Pi = 瑟 ，Pe ET 十 BiQ:BT 
下 一 王 1 瑟 玉民 十 百 , Pi 五 1 一 
误 , 一 骂 t 十 六 术 2 一 所 次 1) 
一 (一 刺 且 人 ) 丰 3 
其 中 : 及 是 维 列 向 量 , 表示 卡尔 曼 增益 ; 总 是 。 维 列 问 量 , 表示 第 天 时 刻 的 状态 估计 |; 
总， 是 = 维 列 向 基 , 表示 状态 的 一 步 预 测 值 ， P, 是 ”xz 维 的 滤波 误差 方差 阵 ，Pi，_; 是 
xn Xa 维 预 测 误差 方差 阵 。 


三 、 使 用 说 明 
1 子 函 数 语句 


void almanknymlenyf,dub:qhryzxpyg) 

2， 形 参 说 明 

n 一 一 整 型 变量 。 状 态 向 量 的 维 数 。 

m 一 一 整 型 变量 动态 噪声 的 维 数 ， 

len 一 一 整 型 变量 。 观 测序 列 的 长 度 。 

f 一 一 双 精 度 实 型 二 维 数 组 ,体积 为 nDXna。 系 统 状态 转移 矩阵 下,，: 。 
- xd 一 一 双 精 度 实 型 一 维 数 组 ,长度 为 n。 系 统 输入 信号 的 系数 向 量 彤 。 
xu 一 一 双 精 度 实 型 变量 。 系 统 的 输入 信和 号 Pi。 

b 一 一 双 精 度 实 型 二 维 数 组 ,体积 为 nXm。 动 态 噪声 的 系数 抢 阵 忆 。 | 
d 一 一 双 精 度 实 型 二 维 数 组 ， 体积 为 mxXm。 动态 噪声 的 协 方差 矩阵 忆 。 
h 一 一 双 精 度 实 型 一 维 数 组 ， 长 度 为 n。 系 统 的 观测 矩阵 号 ,。 

r 一 一 双 精 度 实 型 变 基 。 观 测 噪 声 的 协 方 差 Ra 。 

z 一 一 及 精度 实 型 一 维 数 组 ,长度 为 len。 系 统 的 观测 值 Z,。 

x 一 一 双 精 度 实 型 一 维 数组 ,长 度 为 n。 系 统 的 状态 向 量 已 。 

“p 一 一 双 精 度 实 型 二 维 数组 ， 体积 为 nXa。 系 统 的 滤波 误差 方差 阵 已。 
、g 一 - 双 精 度 实 型 一 维 数 组 .长度 为 n。 系 统 的 卡尔 曼 滤 波 增益 玉 ,， 
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四 、 子 顺 数 程序 (文件 名 :kalman,ec) 


并 Incluqe "stdlibP hy 
void Kalmangnay mylenef duyb aa hr zxXDb,Eg) 
int msnylen' 
double ri 
double 世 JduorarjbLjarpaC yz 站 xp gL]， 
Tint ij 上 ,El; 
double y， 关 有 1]，XC 关 SCCy 基 XS 
D1 一 InallocGnsxmnxsizeof(douptc) yi; 
c 一 tmaliocen 关 靖 关 Sizeoffdouble)7yi 
s 一 mallocftnxnxasizeofCdoubley ) 
xx 一 imallocti xsizeoffdouble >) 
ec 一 malloctn x sizeoffdouble))8 
foer (k1 一 05KL<lenskl 十 十 ) 
ft for G=0O3i<nii 十 十 》 
(7 一 和 0 
for 人 一 0 条 <njj 十 十 ) 
47 一 十 寻 i 关 十 让 关 5 
xlE] 一 yy 十 dxucklji 
) ， 
ra=oii<cnii 二 一 ) 
1 for (iori<cn: 十 十 ) 
(yy 一 0.0) 
for (KE==0O3K< ngk 十 十 ) 
1 二 了 一 下 ii#Dn 二 kxBPLR 关 十 ii } 
cHisxn 十 让 一 yy 


[er 和 一 0O5i<nsii 二 十 ) 
for (一 03j<ni 十 十 ) 
(7 一 0.0# 
for (下 一 DCniEE 十 十 ) 
4y 一 了 十 cfisxmn 二 Ex) 关 和 十 KE] 》 
BITLi sz 十 和 一 y; 


} 
for fi=0ricnii 十 十 ) 
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ffor 和 一 0j<mij 二 二) 
人 
fear 在 一 和 tm 十 一 》 
1 一 7 一 bs 十 KE] 关 gq[K*a 十 j]， } 
s_.ixIm 十 门 一 y4 


1 


for (一 Dii<nii 十 十) 
{ fr 站 一 站 和 sn 和 十 十 ) 
7 
for 引 一 Di< 刘 给 十 十 ) 
47 一 了 十 sixm 十 K]*>bL xm+TE]i 1 
blixn 十 门 二 yy 十 BlILixn- ]; 


} 
1 
一 一 
for 全 一 站 sn 一 ) 
1 一 和 


for (kk 一 0Oik<<nik 十 十 ) 
:7 一 》 十 lixn 二 kk]xh[k]， } 

cei 一 了 4 
7 一 吃 . 昌 
for 扣 一 Dii<nii 十 十 》 

1 一 十 ceijsbily 

一 工人 了 
er 和 一 isnii 一 十 ) 


人 [iecci 4 


Tofr Di<nii 十 十 ) 


(for 和 =05j<ni 十 一 ) 
， Pixhn- 一 plixzan 十 门 一 Li 问 *eceD]; 
如 一 局 已 
ter 在 一 Di<ni 一 十 ) 


(一 一 RUJ#XID;， 


y 一 守 k1] -Yi - 
for 和 一 05<nii 十 十 》 
{XD 一 xl 一 区 Li]x#yy 





free(pbl)y 
freekce)1 
freeks)y 
free(X1) 


他 eefecys 


) 
一 、 例 题 
二 价 线性 系统 的 状态 方程 和 观测 方程 为 
1 1 
汪 【 虹 》 一 民 乓 (下 一 ]) 


民 (8》 一 [10] 避 傅 )》 十 交代 
观测 值 Z(L)= 1,1，Z(2) 一 2.0, Z03) 一 3.2，Z(4) 一 3.8， 观测 嗓 声 了 (A) 的 方 邯 尺 为 
0. 1， 状 态 向 量 和 潍 波 误差 方差 怎 阵 的 初始 值 分 别 为 
怀 (0) 一 辣 王 (0》 一 四 风 
癌 口 10 

NA 闷 波 器 增益 和 涉 波 误差 方差 第 隆 。 些 处 仅 给 出 前 
4 次 递 推 计算 的 缩 
主 函 攻 程 (文件 各 Jalman my) 

芽 include ”math, hy 

并 inctude ”stdio, hy 

提 ipneiude ”katmamny cn 

imaint》 

{f inpt jjyimnnyleny 

statie double {L4 一 11.0，1.0,，0.0，1.0)1 

static double bLd4] = 一 10.0，0.0， 0.0，0.0》 
Static double d[L2] 一 10.0，0.01， 
gtatic double hf[2] 一 11.0，0.0)5 
sfatic double aqL4] 一 10.0，0.0，0.0，0.033 
static double x[L2] 一 {0.0，0.0)) 
static douhble pf4] = 一 (10.9，0,.0，0.0，10.0)， 
static doubhle u[150] 一 10.0，0.0，0.0， 0.03 
statice double z[L150] 一 们 ,1，2.0，3.2，3.8}1 
double gL2J，T=0 1 





mm 一 2 
Ti 一 也 
len 一 4; 


kalimanknmslenyidoybqshiryzyxypyg) 


Frintft*The FError Vatiance Matrix of Kalman Filterny ) ; 
for (i 一 0ii< mi 十 十 ) 
fcr 各 莹 0jj<naij 十 十 ) 
{ Ptintff DIEd 0dy 一 %10.8lfn,i jpLixrn 十 和 ]); } 
Erintf"The Kalman Gainsny 3 
fori 一 0ii<nii 十 十 ) 
{ Printit 攻 (Co%d) 一 由 10.8fny ,ie 》 
printf "The State Estimate of 及 alman Filterwny ) ， 
for (一 Dii<npii 十 十 ) 
{ Printfkt” XC 吃 dd 一 殉 10.8lfn" ix[ 7 





运行 结果 
第 一 次 迁 代 
b(0,0) 一 0.09950249 pk0,1y 一 0.04975124 
bt1,0) 一 0 04975124 ptl,1) 一 5.02487562 
k(0) 一 0.99502488 kCl》 一 0.49751244 
x(0) 一 1.09452736 x(1) 一 0.54726368 
第 二 次 迁 代 ，; 
pb(0;0》 = 0.09812167 pk0,1) 一 0.09531819 
PC1,0) 一 0.09531819 p(L,1) 一 站 18783291 
k(0)》 一 0.98121671 k(l) 一 0.95318195 
xf(0) 1. 99327166 xf1) 一 0.88870199 
第 一 次 奈 代 : 
P(0,0) 一 0.08265668 p(0,1) 一 0.04910779 
p(i,0) 一 0.04910779 bl,1) 一 0.04878365 
ko 一 各 82656683 kfl)》 一 0 49107784 
xf(0) 3, 14484368 .xl) 1. 04487772 
第 四 次 选 代 : 
pf0:0) 一 006966534 pkD,1y》 一 0.02969504 
pt1;0) 一 0.02969504 pl1,1)》 一 0.01971475 
k(9) 一 0.69665341 KCl) 一 0.29695036 
xft0) 3. 91822066 xftl》 一 0.92914981 





$ 4.3 “最 小 均 方 (LMS) 自 适应 数字 滤波 


一 切 能 
最 小 均 方 (LMS) 算 法 的 自 适应 数字 滤波 器 。 
二 、 方 法 简介 


设 横向 自 适 应 数字 滤波 器 的 输入 为 =(n)， 理 起 输出 为 dz), 实际 输出 为 yo ,滤波 
器 的 加 权 系 数 为 runy0G 一 0,1 一 1)， 那 么 LMS 算法 如 下 : 


y(D = Yuo(mDztn 一 站 
1 一 蜂 


E) 一 可 人 》 一 了 2) 
Ti 十 1 一 Wi 十 2pUegR 一 让 1 一 0 邮 一 1 
.其 中 站 是 收 贫 因子 (学 习 率 ) 。 


三 、 使 用 说 明 
1， 子 函数 语句 


void lms(xd yynywymnitmnuy) 
2， 形 参 说 明 
x 一 一 双 精 度 实 迎 一 维 数组 ， 长 度 为 n。 输 入 信号。 
d 一 一 双 精 度 实 型 一 维 数 组 ， 长 度 为 n。 理 四 输出 信号、 
y -一 双 精 度 实 型 一 维 数组 ， 长 度 为 n。 实 际 输出 信号 。 
n 一 整 型 变量 。 输 入 信和 号 的 长 度 。 
w 一 一 双 精 度 实 型 一 维 数组 ， 长 度 为 m。 自 适应 滤波 器 的 加 权 系 数 。 
m 一 一 整 型 变量 。 自 适 应 滤波 器 的 长 度 ( 阶 数 一 1)。 
mnu 一 一 双 精 度 实 型 变量 。 收 敛 因子 。 


四 、 子 函数 程序 (文件 名 :lms.c) 


Yoid lmsfxddynvwomymu) 





int Tiynif 
double mu,d[],x[],y[],w[D 
{ tmt 1 攻 ; 
double ei 
fcer Ki 一 05i<m3i 十 十 ) 
{m[ 订 一 0.0:》 
for 全 一 kk<m 汪 十 十 ) 
{yLk] 一 0.0; 





fcergi= 一 0iic 一 kii 十 十 ) 
17y[ 攻 ] 十 一 x[ 革 一 < w[Di]; } 
e 一 dLk] 一 y[LkJ; 
for 《一 0ii 忆 一 ii 十 十 ) 
{ ww[ 站 十 一 20xftmuxe#xx[k 一 站; } 


. 
for kt 引 一 mmIK<n 十 十 ) 
1y[] 一 0.0; 


for G 一 04<mmsi 十 十 ) 
{ Y[k] 十 一 工 [一 这 < wwL } 
e 一 dkj] 一 y[k]; 
for (一 Ori<mji 十 十 》 
{ wwLi] 十 = 一 20DximusxexX[E 一 襄 : 》 


} 
五 、 例 题 


用 自 适 应 数字 滤波 器 进行 谱 线 增 独 ， 输 入 信和 号 <G) 与 理想 输出 信和 导 d (6 选取 如 下 
4 一 YEsin 殉 十 wdG) 
FE 一 人 一】 
其 中 mwG) 是 均值 为 零 .方差 为 1 的 高 斯 白 曲 声 ， 正 汞 信号 的 数字 频率 为 0. 05,， 信 岂 比 
SNR 一 1 zG 比 2 延迟 一 个 采样 间 申 。 远 取样 本 数 n 一 500, 滤波 器 的 长 度 mm=20, 收 
仇 因 子 一 0.0005 。 
主 丽 数 程序 (文件 名 :lms, mn)， 
##jnclude "stdio. hy 
#incluqde ”math, hy 
拭 include "gauss, cy 
林 jnclude "inns.ey 
tmajin(7) 
{ int iymyni 
long seedi 
double muypiymeanysigrmay 
static double d[L501],x[L501],y[501],wk50]， 
FILE * 二; 
Pi 一 4.0#atan(1.D)， 
Inean 一 日. 日 
Sigrma 一 ] ,人 0} 
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secd 一 135791， 
D 一 5004 
fer 扯 王 曲 <m 红 十 十 》 
fd 一 sqtrtf2.07x#sinC2xDpixi720.0)8 
df 人] 十 一 gaussfmean siglmaayRseed)i 
for(i 一 0ii< tn 一 17 和 十 十 ) 
xLi 十 1 一 dLiJ; } 
凶 一 fpent]rasd .dat ww) 
for 0 一 0ii<mn 拉 十 十 ) 
{ fprintftp id lfsa" di 


feloseCfp75 
it 一 20D; 
一 00 DO053 


lms(xydyyoaywymrmu)s 
printfCr sn The Coeficiencs of 和 daptive Fittern7 7 
for 6 一 0<mji 十 一 4) 


{ printfCw 吧 10. 于 昕 10. 7f" ywrfi]ywLi-1i])， 
brimtffr 吃 10. 条 吧 10. 7 如 ，, 亚 下 二 2]，wLi 二 3) 
PIintigesnn >; 


也 一 fopben( "Imsy. daty yy 
for (一 03i<niil 十 十 》 
1 PTYintetp 2 吉 喇 Han isy0 


flosefeftp 7 ， 
4 
运行 结果 ， 
自 适 应 滤波 器 的 系数 为 
0.0802803 0. 0737254 0. 0374495 0 0179859 
一 0.0057956 一 0. 0396599 一 0.D482402 一 0.0711269 
一 0 1174914 一 0.0873055 一 0.0541619 一 吕 068954? 
一 0.0379733 一 0.0821936 0.0091304 0.0289901 
0.0389192 0. 4903648 和 .0787547 0. 0753598 





正弦 信号 与 高 斯 白 品 声 的 混合 信号 如 图 3 一 4 一 4 所 示 。 经 过 自 适 应 谱 线 增 强 后 ， 正 弦 信 
号 得 到 加 强 ， 信 噪 比 明 显 提高 ， 处 理 结 果 如 图 3 一 4 一 5 所 示 。 
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2 
1 ， “ 1 站 
奉 _1 | | | 1 
攻 | 1 
] 
一 习 
0 00 一 100 “200 396 400 ”500 
样本 序号 样本 序 叶 
图 3 一 4- 4 受 白 嵌 声 其 的 正中 信号 罚 3 一 4 一 5 适应 谱 线 增强 后 的 止 昔 信 号 
SS 4.4 归 一 化 LMS 自 适 应 数字 滤波 
--、 切 能 
妇 一 化 最 小 均 方 (LLMS ) 算 法 的 白 适 应 数字 滤波 器 。 
一 、 方 法 简介 


设 模 向 自 适应 数字 滤波 器 的 输入 为 zx(x)， 理想 输出 为 dmn)， 实际 输 出 为 y0D ,滤波 
器 的 加 权 系 数 为 a(aG01: 则 一 1 那 鼠 上 归 一 化 1MS 算法 可 摘 述 如 卜 ， 


人 一 


(一 信 ， 《一 


ef 一 二 (2 


Yo 一 1 一 Ya) 十 人 一 1 一 0 1 于 一 1】 





Ma ) 
到 (人 一 artay 十 圭一 的 有 人 一 和 ，0 雪 8 才 1 
其 中 只 为 收 全 因子 (0<x<1) ua 为 遗忘 因子 ,人 是 输入 信和 功率 的 个 值 。 
荆 、 剧 用 说 明 
1.， 子 函数 语句 
void nlmsfxdsnywvmymuysigrma2 ay px) 


2， 形 参 说 明 
前 度 实 型 一 维 数组 ,长 底 为 n。 开始 时 存放 输入 信 叶 , 最 后 存放 实际 输出 人 























想 输 山 信 导 。 





号 ， 
a 一 精 度 实 型 一 维 数 组 ， 长 度 为 mn。 理 
na 一 整 型 变量 。 输 入 信号 的 长 度 ， 
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w 一 一 双 精 度 实 型 一 维 数组 ， 长 度 为 世 。 自 适应 滤波 器 的 加 权 系 数 。 

oa -一 整 型 变 氛 。 自 适应 滤波 器 的 长 度 ( 阶 数 一 1)， 

InaU 一 一 双 靖 度 实 型 变量 。 学 习 因 子 ， 0<mu< 1。 

sigma2 一 一 双 精 度 实 型 变量 。 输 入 信号 的 功率 儒 值 史 。 

a 一 一 双 精 度 实 型 变量 。 和 遗忘 因 子 ，0 扫 a 鼠 1 ， 

Px 双 精 度 实 型 一 维 数组 ， 长 度 为 年 。 在 分 块 处 理 时 ,用 于 保存 输入 信号 的 过 去 





四 、 子 函数 程序 (文件 名 :nlms.c) 


void nlmsfx ny 克 ymymuysigIma2 ,aypxy) 
int mn 
double aymuysigma2,d[L ,xl jwL ,pxr]i 
finti 
double evtmp， 
{for (一 0 下 <<nik 十 十 ) 
{ pxf0] 一 xLk]; 
X[E] 一 0 0 
for 0 一 Oili<mii 十 十 ) 
{x[g] 十 = px[ixw[iy } 
e 一 dk] 一 x[]; 
sigima2 一 ax#bxL0]x*px[o] 十 (1.0 一 a)xasigma2s 
ttmb 一 2 # InUACtmn + Sigtma2); 
for 6G 一 0iisctmii 十 十 ) 
fwD] 十 = 一 tmbxesxpxri]ji 
fer 二 《mn 一 1 和 人 一 Ti 一 一 ) 
{ PxD 一 px[i 一 1]; } 


} 


五 、 例 题 
用 自 适 应 数字 滤波 器 设计 通常 的 FIR 数字 滤波 器 。 具体 方法 是 : 在 FIR 滤波 器 的 疾 
模 内 ， 选择 工 个 频率 点 六， 万 ， 人 三 折 在 频率 点 态 企 一 】， 2 也 处 的 幅度 响应 为 4， 





， 相 移 为 & .理想 输出 信号 4 由 节 个 正弦 信号 组 合 而 成 ， 其 中 每 个 正 隐 信 号 的 频率 为 
乒 ， 振 幅 为 4 ,家 位 为 &, 即 


2(8 一 >4 sinK2r 关 天 十 用) 
输入 信号 r(8) 也 由 工 个 正弦 信号 组 合 而 成 ,但 每 个 正 弱 信号 都 是 单位 幅度 、 零 相 移 的 
了 (并 ) 一 >， Sinf2r 广 大) 
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于 是 ， 自 适应 滤波 器 的 系数 就 是 满足 上 述 要 求 的 FIR 数字 滤波 器 的 单位 冲 激 响 应 。 选 取 
参数 : 数据 长 度 n=500, 滤波 器 的 长 度 首 一 51， 收 黎 因 子 “一 2 遗忘 因子 一 0.0,， 输 
和 信号 功率 初始 值 设 定 为 只 (0? 一 0.2， 正 弦 信 号 数 工 一 4 。 

主机 数 程序 (文件 名 :nlms,my: 

间 include ”stdio, hy 

并 inelude ”fath, hy 


医 jinclude ”nlms.ey” 





林 include ”gain. er 
tnain() 
{ int imony 
double amuypiyfreqysigma2,px[601 
static dotubie 本 L501 ,xf501] ,7L201wL60 ampL6Dol clL6o]; 
FIELE 关 p; 
void nlmas(yygainf 7 
Pi 一 4.0xatanfl,.0); 
for 6 一 0<205i 十 十 ) 
{ amp[Til 一 1.045》 
amp[20j 一 0. 5; 
for 人 一 211< 一 401 十 十 ) 
{ ampli| 一 0.0; 》 
m 一 51; 
nm 一 5005 
for ( 企 一 03k<n 插 十 十 ) 
{dLk] 三 0.1xampbLo]i 
x[] 一 D1; 
fer 避 一 15i<4lii 十 十 ) 
fd[K 十 一 ampLixr01xrsinC2.0OxpixD ol25xix 人 tk 一 25.0)79 
x[k] 十 一 0.1xasing2.0xpix00l25xixk)73 
} 
} 
for fi 一 0Oitcrm3i 十 十 ) 
1 ww 一 0.0F) 
mu 一 0.2) 
sigma2 一 0 2 
a 兰 . ,0 - 
foer (一 Ori<rmii 十 十 》 
1 px = 00 } 
nlmskx danytmymuysigrma2 apXx)75 
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Printt( sn The Coefficients of 和 Adaptive Filterwn2 7 
for 和 一 0ii<mii 十 一 4) 
{ printTign 010.? 寺 叫 10. 7 wwLywfi 十 1])， 
这 《 十 2 < 一 49) 


{ Printfttn 叫 10. 7 二 吗 10.71f ywLi 十 2] wii 十 3 
else 

(printfs %10.7IHfw,wEi 十 2]); 》 
Printigw mn yy 


} 
印 = fopenk"nlmshn. daty ”ww 7 
for 人 一 03i<ctm3i 十 十) 
4 fprintfgtp ”55d 昨 10.7fn yiywfi])y，) 
felosefcfp ys 
c[1] 一 癌 0; 
让 一 fopenk"nlmsarm dat ww 
名 ainfwesin 一 11 XYy200, 17; 
for 0 一 0 200) 十 十 ) 
《 ftreq 一 间 ,5#i7199# 
fpPrintfffp 7 吃 下 昕 ny ,freq xDi 
} 


运行 结果 : 








} 


人 loseffp)i 
} 
FIR 数字 滤波 器 的 冲 激 响应 ( 自 适 应 滤波 器 的 系数 ) 为 

0. 0085903 一 0.0003406 一 各 0095127 一 0.0003839 
0.0118384 一 00003677 一 0.0131999 一 总 0003455 
9, 0161255 一 0.0003277 一 0.0183730 一 0 0003033 
0. 0225902 一 0.0002857 一 0 0267476 一 0.0002495 
0. 0341659 一 0.0002089 一 0.0438697 一 0.0000181 
0.0632647 - 人.0002407 一 0. 1047935 一 0. 0003181 
0. 3179237 0. 4974658 0.3170271 一 总 0002446 

一 0. 1048183 一 0.0003116 0.0627188 一 0. 0004307 

一 0.0439939 一 和.0004199 0.0338165 一 0. 0004745 

一 0.0269246 一 0. 0004597 0. 0222672 一 0.0004954 

一 0. 085899 一 0 0004819 0. 0158042 一 入 0005085 

一 中 0134538 一 总 0004981 0. 0114964 一 和. 0005236 

一 0.0098278 一 0.0005175 0.0082612 





FIR 数字 泪 波 器 的 单位 冲 激 响应 如 图 3 一 4 一 6 所 示 ， 其 幅 频 响应 如 图 3 一 4 一 7 所 示 。 
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日 直 1.0 
0.8 
0.2 
媳 类 0.6 
上 舟 9.0 、 要 
， 如 站 
一 0.2 02 
一 日 1 
总 2 中 4 [| 口 . 闻 口 ,3 癌 .4 
样本 序号 2 归 一 化 虹 率 
图 3 一 4 一 6 FIR 数字 浅 波 器 的 单位 冲 激 响应 图 3 一 4 一 7 FIER 数字 滤波 器 的 幅 频 啊 应 


4.5 递 椎 最 小 二 乘 (RLS) 自 适应 数字 滤波 


一 、 功 能 
递 排 最 小 二 乘 (RLS) 算 法 的 自 适应 数字 小 波 器 。 
二 、 方 法 简介 





总 


设 横向 自 适应 滤波 器 的 阶 数 为 于 ,滤波 器 的 系数 为 zu(oG=01 一 1)， 输 入 


为 xGt， 输 出 为 y(n)， 理 想 输出 为 <， 那么 误差 为 

efi 一 过 ()》 一 (2 

一 Ca) 一 全 To)XX(z) 
其 中 输入 向 量 为 
实 () 一 [Te 人 一 1 一 艇 十 1 下 
滤波 器 的 加 权 系 数 向 量 为 
全 (na) 一 [roof eye ai 上 

设 遗 忘 因子 为 和, 选择 滤波 器 的 系数 古 ()， 使 下 式 的 性 能 郴 数 为 最 小 


ez》 一 人 加 |eG 昌 
41 王 】 


从 而 得 到 正则 方程 为 
和 ( 人 三) 一 人 Cn) 
其 中 交 X 闻 维 相 关 和 矩阵 为 
男 (a) 一 了 -次 (GD)XTO) 
MX1 维 互相 关 向 量 为 


BC 一 ZXCDdG) 
# 一 1 
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经 过 进一步 推导 ， 可 得 到 递 推 最 小 二 乘 (CRLS) 算 法 如 下 ， 
1. 初始 化 
P50) 一 人 了 7， 人 3 是 很 小 的 正常 数 ,了 是 单位 阵 
下 (0 一 
2,， 对 于 ”= 1,2,…,N ,进行 如 下 计算 


1 十 4 (人 一 垃 () 


aa) 一 Ce) 一 全 7 一 1 大 (n) 
环 ( 人 (ay 一 到 人 一 1 十 Cayati) 
下 fy 一 人 五 (人 一 1 一 和 CD 吓人 一 1 


三 、 使 用 说 明 
1， 子 函数 语句 


Yoidl tlstxydnywymsTr) 
2， 形 参 说 明 
x 一 一 双 精 度 实 型 一 维 数组 , 长 度 为 an。 开始 时 存放 输入 信和 导 , 最 后 存放 实际 输出 信 


d 一 一 双 精 度 实 型 一 维 数组 ， 长 度 为 上 。 理 想 输 出 信号 。 

n 一 一 整 型 变量 。 输 入 信和 号 的 长 度 。 

和 一双 精度 实 型 一 维 数组 ， 长 度 为 巴 。 自 适应 让 波 器 的 加 权 系 数 。 
鱼 一 一 整 型 变量 。 自 适应 滤波 器 的 长 度 ( 阶 数 一 1)。 

rz 一 一 双 精 度 实 型 变量 。 遗 忘 因子 ，0<r 委 1。 


四 、 子 函数 程序 (文件 宫 :rls,ec) 


并 ineclude ”stdlib,b7 

void rlsKxsdnywrmr) 

int mn 

doubie r,xL],dL],wD; 

{ int ij 
double as， 关 攻关 dy 并 和 和 关 症 
中 一 Imallocfm x* sizeoffdoubieyy; 
u 一 malloc(m x sizeof(double)) 
px 一 Imallocfm x sizeoftdouble7yy 
Pb 一 mallockm *x mx sizeofttdouble775 
for 4 一 0Oii<mii 十 十 ) 
for 人 一 0 和 <mjj 十 十 ) 

fpEsxtimn 十 一 00 》 

foer 和 一 50i<mii 十 十 ) 
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1pLixm 二 让 一 1.0e 十 8 
for 6 一 Di<mii 十 十 》 
1px0j 一 003 
fer 企 一 0sk<nik 十 十 ) 
{ px[0] 一 x[k]， 
ct (一 00<mi 十 十 ) 
fa 一 00 
for fi 一 0ii<miiTTy) 
tu = ar 十 Qnr <PDj # Ti 关 DY ii 
} 
一 了 
for 0G=0Oii<mii 十 十 ) 
fs 一 ss 十 utilxpxJi， 
for (一 05i<mii 二 十 ) 
1g[ 一 usii 
x[ 丰 ] 一 00 
for (人 一 Ditmnii 二 十》 
( x[k] 一 xfk] 十 w[i* pxriji } 
a 一 dtk] 一 xX[K1; 
for G=0Oii<m3ii 十 十 ) 
1 一 ww[i 十 gxasy、 
”for 和 =0H<ma 十 十 ) 
for G=0O5i<mii 十 ) 
{pUjxm 十 襄 一 《LAr) wp[jx m 十 和 一 gri*uDJ; 
for 全 (mm 一 1 一 1 一 一 ) 
{ Px[i 一 pxLi 一 1 
} 
free(g73 
free(tuayi 
free(PX)5 
freeCP7: 
} 


五 、 例 题 


用 遂 推 最 小 二 乘 自 适 应 算法 进行 了 IR 数字 系统 的 辨识 。FIR 数字 系统 为 
3 一 eof 十 it 一 1)》 十 eat 一 2 直人 一 了 
其 中 _G) 为 系统 输入 ,本 例 中 为 零 艾 什 ,单位 方差 的 白 噪声 序列 ;yG) 为 系统 输出 * 选 取 参 
数 为 ; 输入 与 输出 序列 长 订 "一 100， 系统 系数 ar 一 2 一 一 0.5az 一 1 da 一 0 1。 
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主 是 数 程序 (文件 名 :rls,m)， 
井 inelude ”stqio. hz 
间 incluade ”auss cy 
和 incluqe ”r]s.c” 
imain() 
《int ivmyns 
long Seedj; - 
double r,wfi10,dqLlo0],x[Ltoo0]， 
weiqd TH1S(D) 
seed 一 1357 引 1 
一 100; 
fcer 各 一 0O5i<ni 十 十 ) 
{ X[ 门 一 gauss(0.0,1.0,&seed)i } 
QL0] 一 2.0xx[0]i 
db] 一 2.0xx[l] 一 05x#X[LDO] 
d[2] 一 20x*x[?3 一 总 5xx[1] 十 1.4<x[0]s 
for Gi=3ii<cnii 十 十 ) 
{d0i] 一 20xx[ 订 一 0.5xxDi 一 1 十 14<XU 一 引 十 01#x0 一 3] 


Im 一 4; 
for《i=0ii<rmii 十 十 ) 
{wr 这 一 0.0F)} 

TI 一 1 避 


tls(Cxydnywrimner); 
brintt(n The Coefficients of FIR Digital Systermmny )j 
fer 如 一 0Oii<mnii 十 十 ) 

{ printfiew CC9%d) 一 吧 10.7lfsn isywLiD)y 》 


} 
运行 结果 : 
FIR 数字 系统 的 系数 为 
wo0) 一 2. 0000000 
wf1) 一 一 0.5000000 
WU2) 一 1. 4000000 
wr3) 一 0,.1000000 
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第 四 篇 ”数字 图 像 处 理 


第 一 章 ” 图 像 基本 运算 
〖1.1 图 像 谈 取 、 存 储 与 显示 


四 功 能 
读 取 和 存储 BMP 格式 的 图 像 交 件 ， 并 在 VGA 显示 器 上 进行 显示 。 
一 、 方 法 简介 














数字 局 像 的 每 个 象 素 通 常用 8 个 比特 表示 ， 因 此 
0 一 255， 其 中 心 对 应 署 色 ，255 对 应 百色 . 
数字 图 像 技 一定 的 格式 进行 存 赃 ,BMP 格式 就 是 最 常用 的 格式 之 一 ,BMP 图 像 文 件 
是 Microsoft 到 indqows 系统 的 图 像 格 式 , 它 由 BMP 图 像 文件 头 和 图 像 数 据 阵 列 两 部 分 组 
成 














图 像 有 256 个 区 度 级 ， 其 范围 为 










































































图 像 文件 头 包 含 了 有 关 BMP 图 像 的 宽 、 高 ,此 缩 方法 等 信息 , 它 的 C 语 齐 结 构 如 下 ， 
struet BMP-Head 
{ char ID[2] “x 总 是 BM *7/ 
unsigned long FileLength /# 文件 大 小 ,以 字 节 为 单位 <7 
int Recsetrved1li /sx 用 须 为 站 >“ 
int Reserved2# zx 瞧 须 淘 口 关 7 
unslgned long ImagePaositiony 7# 多 像 数 据 的 起 始 位 置 * 7 
unsigned tong HeadLength; !x 区 人 忻 头 的 大 小 *7 
unsigned long jimageWidthi /7# 图 像 宽 度 ,以 象 素 为 单位 * 7 
unsigned long JImageHeight ”x 图像 高 度 ,以 象 素 为 单 位 * 7 
int BitPlane ， sx 耿 须 汐 1 x7 
int ColorBit， / * 每 个 象 素 的 位 数 (1,4.8 或 24)x / 
unsigned long CompressMethod; /* 图 像 所 用 的 压 迪 类 型 * 7/ 
unsigned long Imagelengthy ”+# 图 像 字 节 数 的 客人 多 * 7/ 
unsigned long HorizontalDefinition ，  ”* 图 像 水 平分 辨认 * 7 
unsigned long VerticalDefinition ; /xx 图像 牌 直人 分辨 尼 7/ 
unsigned long UsedColorNurmberi ”* 图 像 实际 使 用 的 颜色 数 * /7 








unsigned long ImportantColorNumbert yx* 重要 的 颜色 数 * / 
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} bmp-head; 


图 像 数 据 阵列 记录 了 图 像 的 每 个 象 素 值 。 图 像 数据 的 存储 是 从 图 像 的 左下 角 开 始 逐 
行 扫描 图 像 , 即 从 堪 到 右 , 从 下 而 上 ,将 图 像 的 象 素 值 一 一 记录 下 来 ,从 而 形成 了 图 像 数 据 
阵列 。 
在 VGA 显示 器 上 用 256 色 模 式 显示 图 像 , 图 像 的 分 辩 率 为 320X200。 
可 以 将 本 篇 的 图 像 处 理 程序 揪 和 人 到 本 节 的 图 像 存 取 与 显示 程序 中 ,这 样 就 可 以 在 PC 
微机 上 进行 各 种 数字 列 像 处 理 。 
三 、 使 用 说 明 
1. 子 国 数 语句 
void SetScrModekint> 
获取 显示 模式 ， 
int GetScrModetveidy; 
初始 化 图 形 系 统 ， 
void InitGraphics(veoidy} 
读 取 BMP 图 像 文件 头 : 
Yoid ReadBMPHeadqInfokchar * )1 
读 取 图 像 数 据 ， 
Yeid lcad-dqatakchar # ，unsigned char huge # 》 
于 示 图 像 文 件 信息 : 
Yoid DisplayJmgHeadInfofgechatr x ?5 
显示 内 存 缓冲 区 中 的 图 像 : 
void DisplayRoamJImagetunsigned char huge * ，long)i 
将 内 存 缓冲 区 中 的 图 像 在 和 磁盘， 
void SaveBufToFileCunsigned char huge 关 ); 
从 威 委 中 读 取 图 像 并 放 和 内存 缓冲 区 中 ,然后 调用 DisplayRoamfmage(7 进 行 显示 : 
void Display8BitBMPImage(kehar # )#; 
在 内 存 中 开 图 像 缓 冲 区 ， 
unsigned char huge x alloc-memfunsigned long》 
注意 :在 下 面 给 出 的 图 像 存 取 与 显示 程序 inagmain,c 中 ,已 经 狂 入 了 图 像 旋转 子 函 
数 rotate() 。 读 者 若 插入 其 他 图 像 处 理子 函数 ,可 仿 此 进行 。 
2， 形 参 说 明 


四 、 子 画 数 程序 (文件 名 ;imagmain, ec) 


荐 include *stdio, hy 
林 jnclude "tnaath. he 


闪 jnclude " graphics. hyw 
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闪 inelude ”string, hy 
并 include ”des hy 


闪 inelude ” 


stdiib- 折 ” 


#jnclude "alloc, hn 


并 include ” 


conio. hy 


井 jncluae "bios. hh 


并 inelude ” 


Imem. hy 


间 ineluqe "dir, h 


并 inelude 


站 define 
并 由 efine 
##define 
共 define 
并 define 
## define 
并 define 
并 define. 
并 define 
并 define 
并 dejfine 
村 deftine 
并 define 
并 define 
并 define 


ctype. hy 


LEFT 
RIGHT 
UP 
DOWN 
ESC 
ENTER 
Horme 

End 

息 1t-X 
Ctrl-LEFT 
Ctrl-RIGHT 
(Ctrl-Horme 
Ctrl-End 
PgUPp 
PgDn 


tybedef struct 


{ int topPxytopy; 


int bottotmx ,bottomy; 


char natrme[201; 


char eolo 


T 


BUTTOMNI 


Union 用 芋 科 
{ int 攻 ; 


_ehar ec[L2] 


} key1# 


354 


80 
bx0Oilb 
0xlc0d 
7 

78 

45 

J15 
116 
19 
117 

了 3 

31 








sttuct BMP-Head 
{《 eehar IDL2] ; 
unsigned long FileLeamgthy 


int 了 Reserved] 
int Reserved2; 
unsigted long ImagePosition ; 


tnsigned long HeadLengths; 
unsigned long TImage 允 idth 


unsigned leng TageHeight; 

int BitPlane ; 

int ColorBit ; 

unsigned long CotmpressMethodi 
unsigned 。 long TIrmageLengths 

unsigned long 了 orizentalDeftinition 
unsigneqd lomn VerticatDefiniriony 
mnsigned lonmg UsedColorNumbers 
mnsigne 奸 long ImportantColorNumbeT 


} bmp-head; 


styucft 了 MP-Pailette 
{ unsigned char balette[256][4] 
} bmp-palettey 


unsigned char huge 关 i-img; 

unsigned char huge * DO-itmg# 

tnsigned char huge * shadow-buf3 
unsigned'int Palette-sizey 

unsigned ]png img-rowyimg-colyline-sizey 
Unsigned lb 者 丰 一 25 人 qd 一 2561; 

int INITTEmmode 


void SetScrModekint)， 

int GetSctMode(void7# 

void InitGraphics(vyoid yj 

Yoid ReadBMPHeadInfokchar ?3 

Yoid PisgplayImgHeadInfofchar x ?3 

Yoid DisplayRoamImage(Cunsigned chat huge * long); 
void SaveBufToFile 人 unsigned char huge 关 ); 
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void Display8BitBMPImageCchar * Ji; 


Yoid InitGraphics(Cveidy》 
{ int gdriveryg-tnode ,g-errOTi 

closegrIaph 人 3 

S-driver 一 DETECTs 

&-etror 一 0 
initgraph(&g-driver,&g-modey”)) 

gE-errot 一 graphresutt(); 

计 【g-error<0) 

{ outtextxyfr30 120,initgraph error17 23 
exit(175 


testorecTttnoqde() 


void 有 eadBMPHeadInfo filename》 
char *ilename # 
《了 IELE < 生 ， 
得 = 一切 pentSienatmme yyrb” ); 
让 《和 包 一 = NULEL ) 
4 Printfttyecannot Open this filesvn7 7) 
exXit(Oy3 
freadf&rbmp-head ysizeoftCbmp-heady ,1 tp); 
让 (bmp-head. ID[L0] 一 BRRCbmp-head.IDL1] 一 人 MD) 
{ Printit>this 症 le is not BMP filevn” 7) 
fclose(ftpy) 
eXitK) 
palette-size 一 bmp-head. ImagePosition 一 sizeof(bmp-head)， 
freadfK&bmp-palette, lpatette-size ftp) 
img-row 一 bmp-head, ImageHeights 
itmg-col 一 bmp-head, ImageWidth; 
line-size 一 《bimp-head, Image 录 idth x* bmp-head. ColorBit 十 31)7732 = 4 
fcelosegKfp > 
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vo 刘 ]oad-datakfilename in-img) 
char #*filename 
unsigned char huge #x in-imgy# 
{ FILE * 和; 
int 1 
tnsigned char huge 关 buffter; 
志 一 fopentgEilenatme ”rby] 3 
这 (fp 一 = NULL) 
{ printfKCannot Open this ilen yi; 
eXitf 7 
} 
fread( 久 bmp-head ,sizecoffbimnp-heady ,1 .fpy; 
主 《Kbrp-head. IDLO]1 = gbmp-head, IDT1]I 一 DDN 一 《 Ptintf 
《this 站 le is not BMP filevny 7 
flosefp) 
exitK07s 
}， 
Palette-size 一 bmp-bead. ImagePosition 一 sizeofKbtmpPp-head)， 
fread( 和 bmp-palette ,1 ,palette-size fp) 
._img-row 一 bmp-head. InageHeight : 
img-col 一 bmp-head. Image 克 idthy 
line-size 一 〈bmp-head. ImageWidth * bmp-head ColorBit 十 317732 45 
bujtetr 一 in-itmmg# 
for (i=- Dii<cimg-rowii 十 十 》 
{ freadqffvoid * )bufferyline-size， lftp7; 
buffer 十 一 ine-sizes 
和 lose (fpy3 
} 


unsigned char huge 关 altoc-metmfbuffer-sizey》 
unsigned long buffer-size; 
{ unsigned char huge x timem-btri 
让 《buffer-sjze>farcoreleft()) 
{ pyintf(yno enough Tnetmnoty") ; 
exatK0)5 
} 


merm-ptr 一 《unsigned char huge * )farmalloctbuffer-size)i 
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了 (mem-ptr 一 一 NULL) 
{ Printffweanmneot allocate Tetmorywn” 7 
XitCD》; 
} 


returmtinerm-ptr)y 


void save-dataffilenatme ybuffer) 
char # 王 lename: 
unsigned char huge 关 buftfers 
{ it 1 
FILE *p; 
他 一 fopenffilenatne wb 4 
让 (fp 一 一 NULLD? exit(0)， 
fwrite( 名 bmp-headsizeofbmp-heady 1 ftp) 
nm 一 brmp-head, ImagePosition 一 sizeof(bmp-head) 
writetgbmp-palettemny1yfp)7i 
for 0 一 00<img-row3 和 十 十 ) 
{ fwriteffvoifd < bufter ine-size 1,fp7， 
buffer 十 一 line-size# 
} 
fclosecftp7; 


void set-grey-palettetvoid ) 
(int ij 
outportp (0Ox3c8,0Ox007 4 
for ki 一 0yi<<256 和 1 十 十 > 
for GO 一 2 一 一 Di 一 一 ) 
foutportb(0Ox3c9 2 】} 


void set-eelor-palettetPalette ,iengthy》 
unsigned char palette[][4]; 
ipt jength; 
(int ijyeh,k; 
eatPortb(0x3e8 ,DOx007; 
for 《一 Doscjiength 和 十 十 》 
天 ~ 、 
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for 0 一 2 > 一 05j 》 
{eh 一 palette[i 让 [> 人 2 
outpertbKOx3c9gychy) 3;， 


void SetScrMedekrmnode) 

int mode ; 

{ union 及 EGGS regy 
reg,hah 一 0 
Teg.h.al 一 imode' 
int86(0Ox10 regyezregyi 


int GetScrMode(C) 

4 union REGS regs 
teg,h,ah 一 Dxf; 
int86(0x10，Rregyertregy74 
Feturrmg(int]reg .了 hi, al); 


》 


Yoid SaveBufToFileresult-itmage) 
unsigned char huge # tesult-imagei 
f int key1l ,key2 
char save-filenameF80]; 
sttuct 侍 blk fi; 
ptintf (Do you Want to savye this tranformed image ? 《YANDTAn") 
keyl 一 getch 人 7) 
主 (totupper(key1) 一 一 和 他 ?) 
(1 do 
{ Key2 一 和 
PrintttrNnBPlease input the filename [,BMP] :7 
Scanff gs save-filename 7 
这 《findftirstkCsave- 丰 lename&f,0)) 
{ save-data(save-filenatme result-image) 3 
brintf (nnsvaSave File Successfully Iny7 


else 





一 


Printfk snJIrmage 0s has existed ! ny save-filenamey); 
printffOverWWritey 上 berty Retry 一 一 人 anne 7 
kev2 一 toupPperkgetche())i 
让 【key2 一 一 “7 
{ save-data(save-filenameyTesult-imnage)i 
pzyintitr nnsawverWrite Successfully 1 7 


} 
- 
} hile 〈Eey2 一 一 “及 7 
4 
Prin 谋 (CnPress any Key to contiabe ,7 
getchC) 
} 


void DisplayImgHeadiniocfilename) 


cbhar #filenarmei 


{ ansigned long buffer-size; 
有 ReadBMPHeadqInfoffilenatmey ; 
buffier-size 一 immg-row x< 1ine-sizey 
Printf" ns ltmnage Jnformation:nsny ,filenarne7， 
printt "Height ， 吕 ld ,img-row); 
printi(” Width :的 da img-eol) 
Printfft”Line Size : 9]qsna” line-size) 
Printft" Image Length ， 邮 ldsn* ,buffer-size?# 
Printify 了 Pajette size ， 上 dnsnw ,palette-sizeyi 
Printi("Press any key to continue .An yj; 
Eetch > 


了】 


一 一 


void DisplayRoamImage(image-data ,img-rowy》 


unsigned char huge < image-dqatai 


long img-rom; 


{ int ij,k ,segvof 夺 ,row-remain vcol-remain ; 


36 


int disp-row disp-col ydisp-rowjly 

unsigned chaz huge * data; 

让 《(row-retmain 一 (int)itmg-row 一 200)>O 
t isbp-row 一 200;} 


else 








{ disp-row 一 img-rowi 
t+YOW-Ternaimn 一 站 


} 
证 《fcol-remain 一 《int)img-eol 一 3207207 


{ disp-eol 一 320+ 》} 


ESe 
{ disp-eol 一 img-ecl; 


col-remain 一 0; 


] 一 0 
k 一 03 
do 
(qdata 一 image-data 十 【img-row 一 xline-size 十 人 
让 人 过 0) ， 


{t data 一 image-data 十 img-ro 加 xline-size 十 长; 
elrscrf yy; 
for (二 (一 sdispb-row 和 十 一 ) 
{ data 一 一 line-size; 
seg 一 FP-SEG(data7 


offt 一 FTP-OFFCdata)y5 
movedata(segyo 寻 ,0xa000, long)ix 320,disp-col)# 


} 


else 
{ 让 妇 row-retnainy 
{f for 人 一 Oddisp-row 和 十 十 ) 
{ data 一 一 line-sizey 
Seg 一 FP-SECGCdata)i 


of 一 FP-ORFFtdatayi 
IOvedata(segyo 储 ,0xa000, 《long)ix 320,disp-col); 


else 
{ disp-rowl 一 disp-Tow 一 (j 一 row-rermain7; 


clrscrfCDy 


fer (ii 一 0ii<disb-rowl5i 十 十 ) 
{ data 一 一 line-sjze ; 
Seg 一 了 P-SPEG(datays 
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off 一 FEP-OFFKCdqata7 
rmovedatatseg yo 插 ,DOxa000， 《lon 名 四 关 32f disp-col7 


} 
eey1-k 一 bioskeytO) 1 
让 《keyl.cL9] 一 一 全 
{f Switchfkeyl.c[L1]) 
{ case DOWN : 
j 十 十 ; 
break 
caseTIP 
一 一 # 
break; 


case End ， 
计 如 一 一 Tow-trermainy》 


{ PrintfCr ay 
break; 
】 
else 
1 一 roOwW-remains 
break; 
case Horme : 
证 和 一 一 0) 
{ PrinttCw Na 3 
breaks 
else 
fj 一 0 
break ; 
) . 
ease RIGHT : 
诗人 一 一 col-remainy》 
{ Printff va 
breaky 
， - 


else 


罗 
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{ KE 十 十 
break; 
} 
Case LEFT ， 
诗 《k 一 = 0) 
{ PrintfCw ar》# 
break; 


case (tri-Home， 
让 (KE 一 一 0)》 
{ printftfg” ar ); 
break 
else 
{k 一 0 
break ; 
} 
case 人 trl]-End ， 
计 kk = 一 col-remain) 
{ Printf ty Nar 7)3 
break; 
》 
else 
{k 一 col-remain; 
breakj 
} 
Case 上 lt- 区 


TetUri yj 


} 
) while 1 ); 


void Display8BitBMPImage (flenarpmey》 








char #filename' 

{ ReadBMPTIyeadInfoffiilenamey); 
i-img 一 引 loc-mern (tmg-rom *# line-size7j 
loadq-qataffilename i-itngy5 
DisplaylImgHeadinfoffilenamey; 
SetScrMiode(C0x13); 
set-eolor-palettegbmb-bpalette, PaletteyPalette-sizeyd4] 1 
JisblayRoamlmageti-img ,img-row]# 
SetScrMode(INITmode7i 





} 

7# 一 一 一 一 一 一 一 一 一 一 一 一 一 关 7 
7 x The following is image PITocessing subfunction * 7 
1!# 一 一 一 一 一 一 一 一 一 一 一 一 一 一 关 / 





夫 include ”path. hy 
#define 娃 人 ,jipLCong)G) <1lx 十 这 
划 define EECGj) jptcleng2Go0 xi 十 让 
void rotate 《ip ,和 pb xjiyythetay 
unsigned char huge *#ipy，#+ 亢 ; 
unsigaed ]ong lx ly# 
double thetay 
{ it tempi 
unsigned 1ong 计 jj 
long xyyrokdxoldy; 
qdouble d0,dq1,fxyfiy pi2vtetmplytetmp2， 
double seyan 如 lei; “ 
bi2 一 名 *#atang1l.0>y; 
angle 一 〈theta/7360.07x pi2 
for fi 一 0lii<clyii 十 十 ) 
for 名 一下 Dj<1x 十 十 ) 
fggfi jj 一 0 
fort (7 一 0y<Cliys7 十 十 ) 
for (x 一 中 ix<<lxsx 十 十 } 
fc 一 cos(angle2t# 
s 一 sinkangle); 
芭 一 (Cdeuble)x 一 (double3Ix 一 1172.0 <e 一 
《doubieyy 一 〈double3ygly 一 11772.0 +8 十 【lx 一 由 72.03 
弛 一 (Gdeuble)x 一 《double)flx 一 11)72.0 7xS 十 
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《fdonbleyy 一 〔doublelgly 一 172.03xe 十 (7 一 1172.0 
oldx 一 《long)ftloor (fx># 
oldy 一 〈long)fleortiy7; 
d0 王 他 一 Dlldys 
dl 一 fx 一 oltdx; 
计 《(oldy < 1 一 1 gg (oldy 一 出 )) 
让 《oldx < 均一 11) 和 goldx 演 一 站 )) 

{ templ 一 《1 一 妈 Jr 芷 (oldyetdxy 十 d*# 妊 (otdy,oldx 十 11); 
tetnp2 一 《1 一 4d1)* 任 toldy 十 ]] ,oldxy 十 dls* 寻 (oldy 十 loldx 十 1 
temp 一 《1 一 G0) xftempbl 十 0xtemp2 
ggtYX) 一 temp 


五 、 例 是 


下 面 给 出 图 像 读 取 、 显 示 与 存储 的 主 函 数 。 图 像 处 理子 函数 的 调用 语句 可 插入 该 程 
序 中 , 例 媚 ， 该 主 画 教 已 知 入 了 图 像 族 转子 函数 的 调用 语句 。 执行 该 程序 , 即 醋 读 取 、 显 
示 和 存储 BMP 格式 的 图 像 。 

主 画 数 程序 (文件 各 :imagmain. my) ; 

扩 ipetude "imagtnain  c7 

tmain() 

{ehar 硬 lenamef 80]; 

int key# 

INITmode 一 GetScrMede(7; 

closegtapphCDy 

printf "Please input BMP-image filename[L * ,bmp]:73 
scanf(” 0%sw ,filename)y 
Tisplay8BitBMPImagecfiienatme)y 

clrscer()j 

or-img 一 引 loc-tmem(img-tow # ]ine-size); 

printf aiting ,na 


+ 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 闪 F 

/ * 此 处 调用 图 像 处 理子 函数 ws/ 
totate《i-img yo-imgy，25 创 ,2561,907， 

7 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 一 7 


PrinttCr sa ; 
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SetScrMode(0Ox13)# 

set-color-palette(Kbmp-palette. paiette ypalette-size/4) 
DisplayRoamImage(ce-img img-row7# 

cjrsceTC 7 

SetSerMode(INITmodey# 

SaveBufToFile(o-img)73 

CirsceTtg 7 

SetSerMode(Oxl13); 

set-colot-palette(btmp-palette. palette ,Palette-sizey 4d7# 
cirscrC yi 

SetScrMode(INTITemode7 ; 

farfreefKvoid far *# )O-itng); 

farfreeffveid far * )i-immg)5 
SetScrMode(INITmodey7; 


运行 结果 ， 
输入 图 像 ， 测 试 女 即 “Lena?” 图 像 ( 文 件 名 :Lena. bmp) ,显示 结果 见 图 4 一 1 一 1。 


3$1.2 图 像 旋转 


一 、 功 能 
将 图 像 进行 任意 角度 的 旋转 。 
二 、 方 法 简介 


设 原 图 像 为 FCz,)， 旋 转 后 的 图 像 为 g(z ,yw )， 旋 转角 度 为 w, 旋转 中 心 华 标 为 
(zyyo) ,那么 旋转 变换 方程 为 


网 加 Eee 网 
对 于 MxAN 图 像 ， 旋 转 中 心 通常 选 为 图 像 的 中 心 ， 于 是 有 


J AN 
Yo 2， 9 一 人 


由 于 既 旋 转变 换 得 到 的 原 图 像 坐标 (z,y) 一 般 不 是 整数 值 , 因 此 ,旋转 后 图 像 中 


(zy ) 处 的 灰 度 值 ,应 由 原 图 像 (z,y) 周 围 的 像素 的 灰 度 值 来 确定 。 以 处 采用 的 是 四 点 线 
性 擂 值 法 。 


三 、 使 用 说 明 


1， 子 隅 数 语句 
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vo 记 rotatefip ,pix,ly:theta) 


2 形 参 说 明 





二 输入 图 像 ， ip 才 示 在 誉 标 人 ) 
_ 点 处 的 像 于 
记 一 一 无 符 导 字符 型 二 维 数组 ， 体 积 为 xxXiy。 输 则 兽 像 ，jip0]D] 玫 示 在 坐标 避 ) 
点 处 的 像 囊 值 。 
1]x 一 一 无 符号 长 整 型 变量 图像 在 x 方向 上 的 像 囊 数 。 
17 一 一 无 符号 长 束 型 变量 图像 在 y 方向 上 的 像 囊 数 。 
theta -一 - 双 精 度 实 型 变量 。 旋 转角 度 ， 单 位 为 度 。 


四 、 子 函数 程序 (文件 名 :rotate. c) 


并 include ”tnath. hy 
并 define 芷 如 JJ) ipL(long》fiD * 1x 十 让 
并 define gg jy jpLCiong)fiy * ]x 十 j 
void rotate (站 ，jPy xly,thetay) 
UPS 旗 ned char huge 关 认 , 关 扣 | 
unsigned long ]x1y5 
detuble thetay 
{ int terapj 
Unsigtned long 1 js 
iong xyyyoldx,oldyy “ 
对 ouble d04dl,fx ypi2ytemptlytemp2s 
double sycyangles 
人 2 一 8x*#atanf1.074 
angle 一 《theta/360.0) xbi2y 
fcr 6 一 0li<lyyi 十 十 ) 
for 和 一 下 jj<txjj 十 十 ) 
{ 8gECij) 一 0 
for (y 一 0y<lyyy 十 十 ) 
for 〈《x 一 划 ;x<clxix 十 十 ) 
{e 一 cos(arngle); 
s 一 Sinfangle7: 
弃 一 人 (doublie)x 一 〈《deouble7yflx 一 11372.0xc 一 
CCdodble)y 一 (double (ly 一 1D)72.0) ws 十 (lx 一 11)72.0; 
fy 一 (deuble)x 一 〔《douhleyglx 一 1172.07xs 十 
《fdouble)y 一 《qdqoubleyfly 一 1072.07ee 十 一 11772. 03 
oldx 一 《〈long)Hoorffxy)s 
oldy 一 〈long)floor(fy7); 
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d0 一 条 一 oldyi 
dl 一 二 一 oldqx; 
证 《Koldy < 1y 一 11) 8 (Coldy 关 一 日 )) 
证 《foldx < lx 一 11) & 必 (oldx 全 一 0)) 
{ templ 一 《1 一 dL)》* 竺 (oldyyoldx)y 十 dL1x 夺 (oldyyoldx 十 1174 
temp2 一 〈1 一 dl = 芝 (oldy 十 lioldx>》 十 ds< 攻 (oldy 十 11,oldx 十 117; 
temp 一 《1 一 da0) # templ 十 d0 <temp23 
名 EC7yX) 一 tempj 
} 


) 
五 、 例 题 


将 图 像 旋转 90 度 ， 调 用 语句 
rotateki-img,o-imgy2561,2561 ,90) 3 


输入 图 像 ,“Lena” 图 像 ( 文 件 名 ,lena, bmp) ,图 像 大 小 为 256X256, 见 图 4 一 1 一 上 
输出 图 像 , 见 图 4 一 1 一 2。 


图 4 一 1 一 1 ”测试 女 即 “Lena? 图 像 图 4 一 1 一 2 旋转 9o" 的 “Lenas* 图 人 
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于 


1.3 图 像 奈 度 级 直方 图 的 计算 


计算 图 像 的 忒 度 级 直方 图 。 
二 、 方 法 简介 
将 图 像 中 所 有 像素 按 其 灰 度 值 的 大 小 进行 计数 ， 从 而 得 到 像素 数量 随 灰 度 级 变化 的 
函数 ， 这 就 是 图 像 的 灰 度 级 直方 图 。 
设 图 像 为 Agzyy), 獒 度 级 直 廊 图 为 histG) ,那么 吉方 图 的 计算 方法 如 下 ， 
1. 初始 化 ， 
histtt>y 一 站 4 一 时 55 
2. 对 于 所 有 zz 和 ， 进 行 如 下 计算 
开 一 Frzyy) 
hist(R) 一 hist(R) 十 工 
三 、 使 用 说 明 
1. 子 国 数 语句 
void histgratm(fip ,lxylyyhist》 
2， 形 参 说 明 ， 
ip 一 一 无 符号 字符 型 二 维 数 组 ， 体 积 为 1xxly。 输 人 人 图像， ip[i][ 门 表示 在 坐标 4i,jy 
点 处 揭 估 素 值 ， 
lx 一 无 符号 长 整 型 变量 。 画 像 在 x 方向 上 的 像素 数 。 
iy 一 一 无 符号 长 整 型 变量 。 图 像 在 y 方向 上 的 像素 数 。 
hist 一 一 无 符号 长 整 型 一 维 数 组 ， 长 度 为 256。 图 像 的 灰 庆 级 直方 图 。 
四 、 子 函数 程序 (文件 名 :histgranma,c) 


并 define 娃 GD ipLGys*lx 十 人) 
void histgramfip jx,lyyhist) 























unsigned char huge 关 p3 
unsigned long lx ,ly,histL256]; 
fintijky 
unsigned long maxs; 
dotuble t# 
statie chatr 闪 textstring[6] 一 {0O" 50" 900 1855077200” ”2507 1 
statle char # topiec 一 "HISTOGRAKMY 
for 昌 一 Di<256 盾 十 十 ) 
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{ hist[] 一 05 》 
for(i 一 0Oyi< lyii 十 十 》 
for 司 一 05j<]x 十 十 》 


1EE 一 六 人 5 
histLk] 十 十 ; 
tnax 一 吕 ; 


for ki 一 0ii<2560 十 十 ) 
(Inax 一 (imnax < 扫 hist[i]y ? hist[Li] ，maxy } 
InitGraphies( 7 ; 
setcolortGREEMND2 
movetofg20y 300724 
linetoft600,，30075 
linete(595，30578 
line(600，300，595，295731 
line(20,300，20，2071 
linek20，20,15，2575 
1ne(20，2025，2574 
for 《一 05i<65i 十 十 ) 
{ outtextxyt21 十 ix 100,310,textstring[i])y } 
setcolorfLIGHTRED7 ， 
for 《一 00<2563i 十 十 ) 
{t 一 (daouble)hist[ij maxi; 
K 一 tx#2503 
Inovyerof21 十 ix 2 300)5 
linetof21 十 ix 2 300 一 长 73 
) - 
settextstylefDEFAULT-FONT ,RHORIZ-DIR ,47， 
setcolorteY AAA) 
outtextxy([190400ytopicy; 
} 


五 、 例 题 


计算 “Lena” 司 像 的 灰 度 级 直方 图 ,调用 语句 ， 
histgramfi-imgy2561,2561,hist)# 


输入 图 像 :,*Lena?* 图 像 ( 广 件 和 名 :lena.bmp) ,图 像 大 小 为 256X256, 见 图 4 一 1 一 1。 
输电 图 像 ; 抑 图 4 一 1 一 3。 
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图 4 一 1 一 3 “Lena* 图 像 的 直方 图 


8$ 1.4 图 像 二 值 化 的 固定 阀 值 法 


一 功 能 
用 固定 阅 值 法 对 图 像 进行 黑白 二 值 化 处 理 。 
二 、 方 法 简介 


图 像 二 值 化 是 通过 设 定 某 个 阅 值 ， 把 具有 灰 度 级 的 图 像 变换 成 只 有 两 个 灰 度 级 的 黑 
白 图 像 。 设 输入 图 像 为 fr,y)， 二 值 化 后 的 图 像 为 gCzr,y)， 降 值 为 了 , 那么 图 像 二 值 化 
的 方法 为 








， Fey) 六 了 
了 9 一 
站 0 ，jFoz 二 了 
三 、 使 用 说 明 
1， 子 函数 语句 

void threshfip ,jp ,1xylyythreshold ) 
2， 形 获 说 明 


ip 一 无 符号 字符 型 二 维 数 组 ， 依 积 为 jx xly。 和 输入 图 像 ，ip[id[j] 表 示 在 坐标 (ij) 

点 处 的 像素 值 。 
jp 一 一 无 符号 字符 型 二 维 数组 ， 体 积 为 jx xly。 输 出 图 像 ，ijp[i][ 订 表示 在 坐标 4) 
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点 处 的 像素 值 。 
ix 一 一 无 符号 长 整 型 变量 。 图 像 在 x 方 向 上 的 像素 数 。 
1I7 一 一 无 符号 长 整 型 变量 。 图像 在 y 方向 上 的 像素 数 。 
threshold 一 一 无 符号 字符 型 变量 。 图 像 二 值 化 的 内 值 。 


四 、 子 函数 程序 (文件 名 :thresh,c) 


并 define ftGj ip[GD * ]x 十 ()] 
共 define ggGj) 记 [G *jlx 十 ()] 4 
woid thtreshgip ,让 ,xlyythreshold) 
unsignhed char hoge 头 让 < 各; 
unsighed ]ong ]x,]yy 
unsigned char threshold; 
{ int ij 
for 在 一 和 91yi 十 十 ) 
for (一 虽 ij<<lxg 十 十 ) 
{ 谋 (HG 一 threshold) 
{ gg(iyj) 一 255+ 】 
else 
{ gg(ij) 一 0; } 
) 
} 


五 、 例 题 


将 “Lena" 图 像 二 值 化 , 阁 值 选 为 110, 调 
用 语句 ， 
thresh(i-iimg,o-itmmgy2561,2561 ,1107); 
输入 图 像 ):“Lena” 图 像 ( 文 件 名 ， 
lena. btmp)， 图 估 大 小 为 256X256， 见 图 4 一 
人 
. 输出 图 像 ， 见 图 4 一 1 一 4。 





图 4 一 1 一 4 国定 阔 值 二 值 化 后 的 图 像 


81.5 图 像 二 值 化 的 自 适 应 阅 值 法 


二 全 和 切 能 
用 自 适 应 阅 值 法 对 图 像 进行 时 自 二 信 化 处 理 。 
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二 、 方 法 简介 
用 Otsu 提出 的 类 判别 分 术 法 自动 选择 和 阐 值 ， 然 后 月 该 赋值 进 行 图 像 二 值 化 。 
设 输入 图 像 为 Fr,y) ,二 值 化 后 的 图 像 为 gCz,y), 阀 值 为 了 ,那么 图 像 二 值 化 的 自 
适应 阿 值 法 如 下 ， 
1. 用 本 章 }1.3 闻 的 方法 ， 计 算 输 入 图 像 灰 产 级 的 归 一 化 直方 图 ， 用 产 G 表示 。 
2， 计算 灰 志 均 值 睛 - 





条 一 >) 动人) 
3. 计算 直方 图 的 零 阶 累积 矩 wk&) 和 一 阶 暴 积 矩 AR) 
ok》 一 之， 有 人) 


古 


KR) 一 了 > 请 个 
4. 计算 类 分 离 指标 


帮 一 站 5 


Tire 人 了 一 AD 
BC 一 ww( 有 ?1 一 of 有 下 一 站 ,1 255 


5 求 cs(8) 全 一 0,1，… 255) 的 最 大 值 ， 并 将 其 所 对 应 的 让 值 作 为 最 佳 闪 值 工 。 
6， 对 输入 图 像 进行 二 值 化 处 理 





255  ， Fr 人 


5 人 0， 二 
基 、 使 用 说 明 
1， 子 函数 语句 
void adbthres(kib ,jp xyliy) 
2， 形 参 说 明 


ip -无 条 号 字符 型 二 维 数 组 ,体积 为 jxkXly。 输 入 图 像 ，ip[[j] 表 示 在 吾 标 (ij) 
点 处 的 像素 值 。 

jp 一 一 无 符 导 字符 型 二 维 数 组 ， 体 积 为 ]xXly。 输 出 图 像 ，jp[i]U] 表 未 在 坐标 和, 
点 处 的 像素 值 。 

lx 一 一 无 符号 长 整 型 变量 . 图 像 在 x 方向 上 的 像素 数 。 

ly 一 一 无 符号 长 整 型 变量 。 图 像 在 y 方向 上 的 像素 数 。 


四 、 子 函数 程序 (文件 名 :adpthres,c) 


共 define 六 人 7 ipPLGiy sx 十 人 ?7 
##define gg jy jp[Giy < 下 十 0 
void adpthres (ipP ,ip ,xy ly 





unsigned char huge xipy， < 和 刘 ， 
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tnsigned long lx ly， 
f int ij, 攻 threshold ; 
double uk ,bywk,qg.s,utymaxepsvhist| 256 j， 
eps 一 1. 0e 一 10 
foer (1 一 05<25651 十 十 》 
{ histLi] = 一 0 
for 司 一 Oily3i 十 十 ) 
for 司 一 0 和 <]xi 一 十 ) 
《有 一 和 人 3 
histLk] 十 十 ; 
呈 一 昌 昌 ; 
for (一 0351<256 引 十 十 ) 
fs 十 一 hist[ 
for 0 一 03ii< 25635i 十 一 ) 
{ hist[i 7 = hist ij]7s;i ， 
UL 一 站 
for ti 一 0ii<C256 和 二 一) 
fut 一 utTi xDhist ji ， 
ak 一 日.D; 
WwW 一 站 【 
tnaX 一 全 必 ; 
fo> 人 一 Oil 256 和 十 十 ) 
{ wk 一 wKE 一 histl1 ; 
UK 一 uE 十 ixhist ii 
Pb 一 ut#wk 一 uki 
入 一 本 区 藉 《0 一 可 KK 
让 《qd < 一 eps)y contiruei 


b 一 bxhbpy/di 
这 《 怕 > max ) 
{ tax 一 -bj 
threshojid 一 1; 
} 
brintf fy bn Threshold 一 只 da threshold) ; 
brinttC an Press any key to continac ,An 3) 
getceht ?3 “ 


fer (一 人 ii<1yi 二 一 ) 
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for 1 一 0<<lxj 十 十 》 
{ 这 人 fj > 一 threshold) 
{ gg i) 一 255， 
efse 
{ ggti,j) 一 0 ) 


} 
五 、 鲍 题 


将 “Lena* 图 像 二 值 化 ,调用 语句 ， 
aqdpthres(i-img,o-img ,2561,256173 
输入 图 像 , “Lena”* 图 像 (文件 名 :lena, bmp) ,图 像 大 小 为 256X256， 见 图 4 一 1 一 1。 


输出 图 像 , 见 图 4 一 1 一 5。 





图 4 一 1 一 5 自得 应 间 值 二 值 化 后 的 图 像 
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第 二 章 图像 增强 


$2.1 图 像 直方 图 均 称 


一 、 功 能 
通过 直方 图 均衡 化 进行 图 像 增 强 。 
二 、 方 法 简介 


用 灰 度 变换 函数 对 输入 图 像 直方 图 进行 修正 ,使 修正 后 的 图 像 直 方 图 趋向 均匀 分 布 ， 
从 而 使 图 像 灰 度 级 的 动态 范围 增 大 ， 达 到 政 善 医 像 质 量 的 目的 ， 这 就 是 图 像 的 直方 图 均 
衡 。 





























设 为 原始 图 像 的 第 并 级 灰 度 ，% 为 变换 尼 图 像 的 第 天 级 灰 度 ， 那 么 图 像 目 方 图 均 
衡 的 具体 方法 如 下 : 

1,， 用 本 篇 &1.3 节 的 方法 ,计算 原始 图 像 的 灰 度 级 盲 方 图 , 赂 20 一 0,.1, 255) 
表示 。 

2. 计算 灰 度 级 变换 邓 数 了 (ri 











% 一 了 (ro 一 羡 殉 ， 下 一 01， 255 
其 中 六 是 图 像 的 像素 总 数 。 
3 恨 据 灰 度 级 变换 数 了 en) 完成 图 像 的 灰 度 级 变换 。 


由 于 全 六 只 是 图 像 菊 度 级 概率 密度 王 数 的 近似 ,因此 经 过 吉方 图 均衡 后 , 只 能 得 到 


接近 平坦 的 直方 图 
三 、 使 用 说 明 


1， 子 函数 语句 
woid Histeqfip ,pix,ly) 

2， 形 参 说 明 

让 一 一 无 符号 字符 地 二 维 数组 ， 体 积 为 1x&Xly。 输 入 图 像 ， iptiDJ 表 未 在 坐标 上 jj) 
点 处 的 像素 值 。 

jp 一 一 无 符 导 字符 型 二 维 数组 ， 体 积 为 1xxly。 和 输出 图 像 ， 六 器 D] 表 示 在 尘 蒜 G) 
点 处 的 像素 值 。 

ix 一 一 无 符号 长 整 型 变量 。 图 像 在 x 方向 上 的 像素 数 。 
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更 得 


ly 一 一 无 符 叶 长 昧 型 变量 。 图 像 在 了 方向 上 的 像素 数 。 
四 、 子 天 数 程序 (文件 名 :histeq, c) 


熙 define 娃 Gijy ipLCtong)Gy * 1x 十 让 
并 define ggfijj) ip[Clong)0ip x ]x 十 麻 
Yoiq histeqfip ,ip ,lxyly) 
unsigned char huge # py # 如 ; 
unsigned leng ]xyly， 
finrcijikmedvar medvar2yttvi 
long tnaxvalueyrnaxvalne2; 
unsigned long levelE256]，ievel1L256]，level2L256 了] 
for (一 Dii<<25651 十 十 ) 
{f levelfi] 一 levellb] = 1evel20i] 一 0 } 
fer 6 一 0iislyii 十 十 》 
for 避 一 OUj< lx 和 十 十 ) 
fttvy 一 《int) 任 全 ?3 
levelittvy ] 十 十 
levellfo0] 一 levelLO]x 255# 
for fi 一 05i<2565 十 十 》 
{ levell[i] 一 levellLi 一 1] 十 levelLi]xr 2555 } 
for(i 一 05i<<256;i 十 十 ) 
flevellf] 一 《GOmedvar2 一 levell[i]/Alxxly)) 25579 255 ;medqvwar2 } 
for ki 一 05i<iyii 十 十 ) 
for (一 0js<clxij 十 十 ) 
{ medyar 一 levell[ 妈 全, ]; 
gg0yj) 一 tedvars 
level2[medvwar] 十 十 } 


} 


五 、 例 是 


将 蔬菜 “Veget” 图 余 进 行 直 方 图 均 衔 ， 调 用 语句 
histeqei-itmnag Or-img + 2256 昌 25617 让 
输入 图 像 : 蔬菜 “Veget? 图 像 (文件 名 :veget. bmp), 图 像 大 小 为 256X256， 见 图 4 一 
2 一 ] 。 
输出 图 像 ， 见 图 4 一 2 一 2。 
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图 4 一 2 一 1 蔬菜 *“Veget” 图 图 4 一 2 一 2 直方 图 均衡 后 的 蔬 半 图像 


3 2.2 中 值 泪 波 
一 、 功 能 
用 快速 中 值 滤波 方法 对 图 像 进行 滤波 ， 去 除 图 像 中 的 噪声 ， 








中 值 凋 波 是 -- 种 能 有 效 地 换 制 图 像 中 嗓 声 的 非 线 性 信号 处 理 技术 。 它 月 两 个 主要 优点 ; 
《1I) 可 以 有 效 地 抑制 尖锐 和 长 拖 尾 噪声 ;(2) 在 泪 波 时 能 够 保护 们 号 中 尖锐 的 跳 变 或 边界 。 

设 xz 是 输入 图 像 在 坐标 公 , 力 处 的 像素 , 在 其 周围 弄 一 个 关 Xza 的 矩形 和 窗口。 假设 窗 
口 从 左 向 右 水 平 扫 揪 ， 而 后 再 回 到 下 一 行 重 复 扫描 。 对 每 个 窗口 内 的 所 有 公 素 按 其 灰 度 
值 的 大 小 进行 排序 ， 求 出 中 值 zw ， 然 后 用 中 值 xzw 替换 >,， 这 就 是 图 像 的 中 值 淡 波 。 
在 二 维 中 值 总 波 时 ， 利 用 窗口 的 清 动 性 质 ， 可 以 推导 出 快速 中 值 滤波 算法 。 具 体 步 
又 如 下 : 

1， 计算 第 一 个 窗口 内 图 像 元 束 的 灰 度 级 直方 图 histfz](G 一 0.1,…:,255)， 并 找 出 中 
值 mdn, 然后 计算 出 灰 度 值 小 于 中 值 mdn 的 像素 数 ltmdn。 以 后 , 窗口 每 向 右 扫描 一 步 ， 
都 对 这 三 个 量 进 行 更 新 。 

2. 将 窗口 向 右 移 动 一 个 单位 时 , 原先 窗口 内 最 左边 一 列 的 紫 个 像素 的 灰 度 级 g 被 删 
去 。 因 此， 吉方 图 hist 和 ltmdn 更 新 为 

histlLg] < histLg] 一 1 














和 
ltmdn < lttndn 一 ] ,， 当 emdn 


同样 ， 现 在 窗口 内 最 右边 一 列 的 每 个 像素 的 灰 度 级 g 被 加 进 。 这 时 直方 图 hist 和 ltmdn 
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控 下 述 方法 更 新 
histLg] < hist[Lg 十 工 
和 
ltmdn < ltmdn 十 1 ， 当 有 所 mdn 

这 样 完成 以 后 ,hist 就 是 当前 窗口 的 直方 图 , 而 ltmdn 是 当前 窗口 肉 灰 度 值 小 于 原先 窗口 
中 值 的 像素 数 。 

3. 计算 当前 窗口 的 中 值 

设 内 值 工 = 人 mX2 一 1)72。 我 们 ， 比 较 ltmdn 和 工 ， 然 后 分 为 两 种 情况 进行 处 理 ; 

情况 : ;ltmda>>T,， 这 表示 mdn 大 于 当前 窗口 的 中 值 。 此 时 进行 如 下 计算 ， 

mdn <mdn 一 1 
ltmdn < ltmdn 一 hist[maqn] 
直到 
ltmdn 所 : 工 
情况 I ，ltmqn<sT， 这 表示 mdn 小 于 或 等 于 当前 窗口 的 中 值 。 这 时 检验 
itmdn 十 histLmdn]  T 
如 果 不 成 立 ， 则 mdn 正好 是 当前 窗口 的 中 值 ， 如 果 成 立 ， 它 表示 mdn 十 1 仍然 小 于 或 等 
于 所 要 求 的 中 值 ， 这 时 计算 
ltmdn < ltmdn 十 histLmdn ] 
mdn < mdn 十 1 

然后 再 进行 检验 。 如 此 反复 计算 ， 直 到 ltmdn 十 hist[mdn] 工 为 止 。 


三 、 使 用 说 明 


1， 子 图 数 语句 
void medfilttip plxylyywy) 
2， 形 参 说 明 
记 一 一 无 符号 字符 型 二 维 数组 ， 体 积 为 ]xXIy。 输 入 图 像 ，ip 吕 [表示 在 坐标 ij) 
”点 处 的 像素 值 。 
jp 一 一 无 符号 字符 型 二 维 数组 ， 体 积 为 lx XI]y。 输 出 图 像 ，ip[ 训 站 表示 在 坐标 4 
点 处 的 像素 值 。 
kx 一 一 无 符号 长 整 型 变量 。 图 像 在 x 方向 上 的 像素 数 。 
1y 一 一 无 符号 长 整 型 变量 。 图像 在 y 方向 上 的 像素 数 。 
允 一 一 整 型 变量 。 方 形 衔 口 宽度 。 


四 、 子 函数 程序 (文件 名 :medfilt.e) 


共 define ggfi jy jip[Cong)ti) <1x 二 (long)g) 
void medfiltkip ,jp xlyyw) 





























unsighed char huge xipy 共 jp; 


unsigned long lx ,ty; 
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int 殉 ; 
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{ unsigned int histt256]，win[L100; 


int ij ,外 jnymyvyqi 
证 以 可 所 3 11 
{ printf("snILLEGAL INPUT Ia) 


} 


exitfDy ; 


上 王 《w 一 1272， 

for 总 一 Ki<x 一 Ki 十 十 》 

for 介 一 芷 可 sx 一 上 5 十 十 》 
《让 人 一 一 攻 ) 


《am 一 人 
for (二 j 一 在 后 近 一 j 十 本 十 十 》 
for 《一 1 一 长 ii< 近 一 1 十 K 计 十 十 ) 
1 winLm] 一 ipLxly 二 六] 
tn 十 十 ， 


1 


for (1 一 站 ;ii< ww 关 一 售 i 二 十 ) 
fezr (一 有 是 定 关 焉 一 1 一 和 下 十 ) 
{ 证 winDji < win[Dii 十 1 了 ) 
fm 一 WinDj]; 
win[ 三 win[j 十 1 
win[jj 十 1 一 m; 


} 
myY 一 Win[Lfwx# 克 十 1772] 
1 一 站 
for (Qq 一 019 近 2565q 十 十 ) 
1 histLq] 一 0; } 
for 《ii 一 Dii< 关 三 这 十 十 ) 
fm 一 win[iili 
histLtm] 一 hist[m] 十 1 
计 gm < imvy) 1 十 十 3; 


else 


{ for (人 一 :一 Ki1< 一 1 十 K 昌 十 十 ) 


fm 一 ipiixty 十 ji 十 E]; 


na 一 ip[Lixly 十 j 一 K 一 
hist[im] 一 histLm] 十 1， 
hist[n] 一 hist[Ln] 一 1; 

这 n 扫 mv) ] 一 一 ! 

这 《m < my) 1 十 十 ; 


While (1 > 一 (wx 砚 十 1772 1 
{1 一 1 一 Pbist[mv 一 1; 
my 一 mv 一 11; 
》 
while〔〈 1 十 hist[mv] < (wxw 十 1)72 ) 
{] = 一 1 十 histLmv]; 
mv 一 Inv 十 1 
} 
SECij) 一 Imv4 


} 
五 、 例 题 


对 受 噪 声 污染 的 *Lena? 图 像 进行 中 值 滤波 ， 调用 语句 ， 
medfilt(i-immgy,o-img ,2561,2561) ; 
输入 图 像 : 受 咯 声 污染 的 “Lena" 图 像 ( 文 件 名 :lena10.bmp) ， 图 像 大 小 为 256X256， 
见 转 4 一 2 一 3。 
给 出 图 像 , 见 图 4 一 2 一 4 








-3 含有 嗓 声 的 图 像 图 4 一 2 一 4 中 值 滤波 后 的 图 像 


8$2.3 图 像 锐 化 


本 功 能 
用 空间 高 道 滤波 方法 进行 图 像 锐 化 。 
二 、 方 法 简介 


图 像 锐 化 的 是 的 是 加 强 图 像 的 轮 廊 租 边缘 ,常用 的 方法 之 - :是 进行 宝 间 高 通 沥 波 。 此 
处 选用 的 高 通 着 波 器 的 单位 冲 激 啊 应 隆庆 为 
































[ 3 1 总 
好 = | 一 1 5 | 
0 -1 D_ 
即 


(CT 一 COzy) 一品 FCry 
一 Sr 一 一 1 Fr 一 3) 一 Cry 二 1) Try 一 1) 
其 中 Fx,y) 是 输入 图 像 ， gz 是 输出 图 像 ，Y2Fz3) 是 输入 图 像 二 次 微分 的 数字 
拉 普 拉 斯 算 子 。 上 式 实质 上 也 是 用 拉 普 护 斯 算 子 进行 鲁 像 锐 化 。 
三 、 使 用 说 明 


1， 子 冰 数 语句 
void sharPentip ,jpylxylyy》 

2， 形 参 说 明 

ip 一 一 无 符号 字符 型 二 维 数 纽 ， 休 积 为 lxXly。 输 入 图 像 ，ipiDj 表 示 在 坐标 人 i) 
点 处 的 像素 值 。 

ip 一 一 无 符号 字符 型 二 维 数 组 ， 体 积 为 IxXly。 箱 出 图 像 ，ip[ 菇 6 表示 在 坐标 人) 
点 处 的 像素 值 。 

lx 一 一 无 符号 长 整 型 变量 。 图 像 在 x 方 向 上 的 像素 数 。 

17 一 一 无 符号 长 整 型 变量 。 图 像 在 y 方 向 上 的 像素 数 。 


四 、 子 函数 程序 (文件 名 :sharpen'c) 


并 define ffG) ipLfiong)giy <1lx 十 0) 1 
并 define ggfij) jp[tlong)tiD xlx 二 0) ] 
void snarpentip jp ylxylyy) 






































unsigned char huge 关 ip， 基 jpb# 
unsigneqd long lx ,ys 
{ unsigned long ij 
int tetmnb# 
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for 《4 一 liii<ly 一 11i 十 十 ) 
for 二 115j<lx 一 11 和 十 十 ) 
ftemp 一 5x intyffgi,j) 一 int 12 一 (intfttG 二 LI) 
一 (int)fGj 十 1》 一 《iat3ft0,j 一 1); 
这 (temb > 2553 
{ temp 一 255，} 
else 计 iftermp << 0 》 


{ tetnbpb 一 0 } 
SSE4ij) 一 tempy 
} 
} 


忆 、 例 题 
“对 “Lena> 图 像 进行 锐 化 处 理 ， 调 用 语 
何 ; 
sharpben(i-img:o-img， 25 创 ,2561) ; 
输入 图 像 :“Lena" 图 像 ( 文 件 名 ， 
lena. bmp)》 ,图像 大 小 为 256X256, 见 图 4 
一 1 一 ]， 
输出 图 像 : 见 图 4 一 2 一 5。 





图 4 一 2-5 锐 化 处 理 后 的 图 像 


Y2.4 图 像 平 滑 
一 、 荔 能 
用 邻 域 平均 方法 进行 图 像 平 滑 。 
二 、 方 法 简介 


没 输入 图 称 为 fr,y), 输 出 图 像 为 g(z,y)。 若 点 (zy) 的 邻 域 为 8 ,那么 4 邻 域 的 从 
标 集 合 为 
沪 一 { 人 zy 十 lzy 一 1 (rz 十 lf 一 15y)} 
8 邻 域 的 坐标 集合 为 
人 
(二 139fz 一 1y 十 1 zy 十 1)(z 十 1,y 十 1 
383 





图 像 平 滑 的 邻 域 平 均 方法 为 
并 >， Fr ay) ， 





当 |.Fzy37) 一 
区 KZ ) 轴 KoDES 
FTCrsy 其 他 
其 中 了 工 是 冰 值 。 
三 、 使 用 说 明 
1， 子 国 数 语句 
void stnooth ip ,PP,]x,]y7 

2， 形 参 说 明 


1 
一 人 裕 王 
床 >，FGx 2 
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ip 一 一 无 符号 字符 型 二 维 数 组 ， 体 积 为 lxXly 。 输 入 图 像 ，ipG]D 表 示人 在 坐标 人) 


点 处 的 像 夫 值 。 





jp 一 一 无 符号 字符 型 二 维 数组 ， 体 积 为 jx xly。 答 出 习 像 ，jp[iD] 表 示 在 坐 你 4i 


点 处 的 像素 值 。 


1x 一 一 元 符号 长 整 型 变量 。 图 像 在 x 方 向 上 的 像素 数 。 
ly 一 一 无 符号 长 整 型 变量 。 图 像 在 y 方向 上 的 像素 数 。 


四 、 子 函数 程序 (文件 名 :smooth. ec) 


#define 芷 GD ipfgeng>ytiy lx 十 人 ) ]】 
共 define 名 EGG iD 也 [Cleng)Go *tz 十 G) 
void Smoothtip ,让 ,xly) 
UnsignecG char huge <1p， 关 jp# 
unsigned long 1x ,jy# 
{ int thresh ,tempycehoice; 
unsigned ljong ij; 
puts ("\nPlease Choose: 1 一 4 adjacent points 
Scanffn gd cheoice7j 
putsft mnPtease input smeoth threshold ”1 
scamfC” 06d7" 人 Gthresh); 
swWitch 《choicey 
{ ease 1 
for fi 一 lily 一 1 十 十 ) 
for 和 一 计 j<1x 一 11 十 十 ) 


2 一 8 adjacent points ”7 


{ temp 一 〔〈int)ftti 十 1 十 《int 竺 人 一 十 
(intftti 十 12 十 《inty 夺 人 一 123 


tempy 一 4; 
于 《abstfG 一 termnp7y>thresn) 
{ ggGyjy 一 tempi } 
384 


else 
{ gg 一 芷 (ij } 
} 
CaSe 2 
for fi 一 1l;i<zly 一 1 十 十 ) 
for 1 一 113j<]x 一 二 十 十 》 

{f terp 一 【〔〈int)fifGi -jy 十 《int)ftG 一 1 j) 十 
Cint)tfGj 十 1 十 《〈int) 开 全 ,jj 一 1》 十 
(int) 娃 (i 一 1 一 1) 十 《int) 竺 (一 1 十 1》 十 
Xint) 插 Ki 十 1 一 17 十 CntoitG 二 1 j 十 1 

tempy 一 8; 

让 《abs( 侍 人 方 一 tempy>>threshy 
《ggE(ij>》 一 temp;，} 

else 
{ggGi) 一任 GD 


五 、 例 题 


对 “Lena" 图 像 进 行 平 滑 ， 调 用 语句 : 
smoothti-itng:o-imgy2561,2561) 4 
输入 图 像 ,“Lena” 图 像 (文件 名 :lena. bmp) ,图 像 大 小 为 356X256, 见 图 4 一 1 一 1。 


输出 图 像 : 见 图 4 一 2 一 6。 





图 4 一 2 一 6 平 谓 后 的 图 像 
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第 三 章 ”图 像 边缘 检测 


$ 3.1 Roberts 算 子 边缘 检测 


一 、 功 能 
用 Roberts 算 子 进行 图 像 的 边缘 检测 。 
二 、 方 法 简介 


设 输入 国 像 为 Ar 和 输出 图 像 为 gzyy), 刚 第 一 种 Roberts 微分 运算 定义 为 
呈 (Ty3 王 | .8Cz 十 1 3) 一 上 Cry | 十 | .PCzr sy 十 1 一 Cry 
第 二 种 Roberts 微分 运算 定 交 为 
Sr 一 zy) 一 Ar 十 IAAGrdTT1 --Acy 十 1 


三 、 使 用 说 明 
1，、 子 函数 语句 


Yo 这 robetrtsfip ,jp ,txvlytype) 

2， 形 参 说 明 

ip 一 一 无 符号 字符 型 二 维 数 组 ， 体 积 为 lxly。 输 入 图 像 ，ipLHJUHj 表 示 在 坐标 4 j) 
点 处 的 像素 信 。 

jp 一 一 无 符号 字符 型 二 维 数组 ， 体 积 为 txXiy。 输 出 图 像 ，ip -iD 表示 在 坐标 4i,) 
点 处 的 像素 值 。 

术 一 一 无 符号 长 整 型 变量 。 图 像 在 工 方向 上 的 像素 数 ， 

ly 一 一 无 符号 长 整 型 变量 。 图 像 在 了 方向 上 的 像素 数 ， 

type 一 一 整 型 变量 。type 一 1， 表 示 第 一 种 Roberts 算 子 ; type 一 2， 者 示 笋 二 种 
Roberts 算 子 。 


四 、 子 下 数 程序 (文件 名 :roberts,c) 


并 include ”mmath, th” 

共 define 娃 (xyy?y ip[lxx gey) 一 (7 
并 define gg(CXKy) ipP[LIxx fy 二 CCx 
void Pobertsfip jp ,lx,ly:type) 














unsigned char huge *ipy，*j 刘 } 
unsigned long ]x 1y; 
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Int tyPe 4 
fint iiysyvXywyyv25 
for (ix 一 0 这 <clxiix 十 十 1 
{ ggCxy0) 一 0; 
gfKixy ly 一 1) 一 05 
for kiy 一 157<lyiy 十 十 》 
{ ggC0siy) 一 晶 
ggKiX 一 1,i727 一 0 
} 
让 《 type 一 一 1) 
{ for (ix 一 1ix< lx 一 1;i 十 十 ) 
for Gy 一 459Y<ly 一 15iy 十 十 ) 

{ wx 二 姓 (ix 十 15iy) 一 在 Gyiy7# 
wy 一 人 xiy 十 1)》 一 芋 人 xi735 
g&Kixyiy>》 一 abskvx) 十 abskvy) 1; 

) - ， 

else 
《 for (ix 一 Liix<ix 一 1;ix 十 十 》 
for《iy 一 13i7<ly 一 157 十 十 ) 

《YX 一 生 (ixyiyy 一 在 (ix 十 1yiy 十 173 
wy 一 全 (x 十 1:iy) 一 竺 fixyiy 十 178 
gg(ixyiy) 一 abs(vx) 十 abskKvy); 


! 


五 、 例 题 


用 第 二 种 Roberts 微分 运算 对 猴子 “Monkey? 图 像 进 行 边 缚 检测 ， 谓 用 语句 ， 
Toberts (i-img yo-img ,256L ,2561， 27 
输入 图 像 ,猴子 “Monkey” 图 像 (文件 名 :monkey,bmp) ,图 像 天 小 为 256X256, 见 图 
4 一 3 一 1 。 
输出 图 像 : 见 图 4 一 3 一 2。 
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图 4 一 3 一 1 欧 子 “Monkey” 导 像 几 4 一 4 2 Roberts 算 上边 尝 葵 测 后 的 图 像 


8 3.2 拉 普 拉 斯 算 子 边缘 检测 


一 、 功 能 
用 拉 普 拉 斯 算 子 进行 图 像 的 边缘 检测 。 
二 、 方 法 简介 
函数 /(z ,2) 的 拉 莹 拉 斯 运 去 算 定义 为 
汪 2 
其 中 立 : 称 为 拉 普 榨 斯 算 子 。 下 面 给 种 数字 拉 普 拉 斯 算 子 ， 如 图 4 一 3 一 3 所 
丰 。 





2 














岗 4 一 3 一 3 拉 普 拉 斯 算计 


三 、 使 町 说 明 


1， 子 函数 语句 
voi 计 laplatip , 记 ; 11yy》 
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2， 形 参 说 明 


记 一 -无 管 号 学 竺 剖 天 寻 形体 摧 为 xi， 得 和 图像 ，m 了 卫衣 示 在 光标 各,j) 
点 处 和 像 索 似 
旧 - 一 玫 答 避 人 了 等 而 于 维 轩 组 ， 和 仁和 为 长 xl 输出 图 像 ，ip[i[ 和 表示 在 灶 标 避 久 


点 处 的 像 束 证 . 
天 但 呈 长 忒 站 变 量 ， 痢 像 言 x 方向 二 的 像素 数 。 
无 符 计 发 尼 主 蛮 量 。 国 像 在 y 方 摧 二 的 像素 数 ， 


、 子 国 数 程序 ( 坟 拓 全 :ablavc) 











一 


于 要 cine 全 人 
二 define aaayoy gs<sty) 二 (CE) 
vod 1apiawisibsts wy 
ensignecdlehar huge 和 is 有 
vieg josg lxslvs 
Ta Ps 


Eee jn 


1 
oTr 和 和 一 站 本 
人 人 居 和 》 
ERgUXSLY- 1 
Tor 站 一 15y< ly5iy 十 十) 
EEC9-iy)》 一 
gR&TXR- 1 一 站 


PUSSY inine eaoose mainskE 1 20r 37 ”1 


DTInEEE IDasSEI -| mask2: 一 ] 一 | 一] imask3:，， 1 一 2 ln 
Primtf 1 -1 一 上 一 2 nr7) 
PIT 呈 一 1 避 一 】 一 】 一 1 -2 ln) 


sea 人 ft” sm 
计 fn 1 一 377etntri 
lnlz----: 
[for (和 一 1 一 [十 十 ) 
for 0 一 157rs 人 iv 一 
1 JP 一 站 
[roxnaomxs -ixX FF 一 ) 


] 芭 一 和 1 一 TIXS 
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for 《my 一 Dimy< 一 23my 十 十 ) 
(了 十 my 
jpy 一 jpy 十 妊 Gx jy)*lapLim [mx][my]; 
} 
} 
gEtixyiyy 一 abskipv7s 
} 


五 、 例 题 


用 Laplaee 算 子 对 猴子 “Monkey” 轿 像 进 行 边缘 检测 ， 调 用 语 各 ， 
laplaGr-img :o-imgy25 介 ,2561); 
输入 图 像 : 猴子 “Monkey” 图 像 (文件 和 名: monkey, bmp)， 图 像 大 小 为 256X256， 见 
图 4 一 3 一 1。 


输出 图 像 ， 略 ， 
8$3.3 Sobel 算 子 边缘 检测 
一 、 功 能 
用 Sobel 算 子 进行 图 像 的 边缘 检测 。 
二 、 方 法 简介 


设 输入 图 像 为 KCz 7， 输出 图 像 为 ECGz,y) ,那么 Sobel 运算 定义 为 
gtzyy) 一 "| 十 17 


其 中 
7 一 LA 一 1 一 十 281 一 1 十 Fr 一 1 十 1 
一 LAzT+Tliy 一 说 二 2610 二 ly 十 ArzTiy 二 3] 
T， 一 LFr 一 ly 一 1 二 2fry 一 1 二 Ar 二 ly 一 1 
一 LA 一 1 十 让 十 21zy 二 1) 十 Foz 二 ly 十 1 
三 、 使 町 说 明 
1， 子 函数 语句 
void sobeltip ,ip 1x,1y) 
2 上， 形 参 说 明 


点 处 的 像素 值 。 
训 一 一 无 符号 字符 型 二 维 数组 ， 体 积 为 1x xly， 和 输出 图 像 ，ipii][D 吉 示 在 坐标 和,j) 
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点 处 的 像素 值 。 
jx 一 一 无 符 呈 长 整 型 变 景 。 图 像 在 x 方向 上 的 像素 数 。 
ly 一 一 无 符 叶 长 整 型 变量 。 图 像 在 y 方向 上 的 像素 数 。 


四 、 子 函数 程序 (文件 名 :sobel.c) 


并 ineluqde ”math.hy 

##define ff(x,y)y ipLIx xy 十 5Cx) 1 
共 define gg(Xyy) jpLlx xy) 十 (xj 
void sobel(ipy jp xyly) 





unsigneqd char huge #ipy 关 jps 
tnsigned lcng xy ， 
1 int ixyiyyvwxewyi 
Jor (ix 盖 0Dfix< 1x3ixX 十 十 ) 
1 ECiIX DO) 一 有 0; 
EECX 7 一 1 一 站 
tor fiy 一 15y<lyiiy 十 十 ) 
{ BBCOsiyy》 一 自 ; 
名 攻 (1X 一 1 517》 一 间 ; 
} 
for 《ii 一 13ix< lx 一 15ix 十 十 ) 
for fiy 一 157<s17 一 1 十 十 》 
Tvwx 一 (EUx 一 ti 一 1)》 了 2x 作 (ix 一 15iy)y 十 攻 Gx 一 1,iy 十 12 > 
一 全 [GT1:i7 一 13》 十 2x 妇 人 zx 十 1Ji7) 十 插 人 ix 十 37 十 1 7 
wy 一 【ECix 一 15iy 一 1)》 十 2* 竹 人 ixyiy 一 1)》 十 蔡 Gix 十 1 订 一 1) >》 
一 ttGx 一 1:iy 十 1 十 2x 攻 (ixzyiy 十 1) 二 桩 Gix 二 197 十 127 02; 
gg(ixyiy) 一 absfvx) 十 abs(Cvy7 
》 





} 
五 、 例 题 


用 Sobel 算 子 对 猴子 “Monkey” 图 虱 进 行 边 缘 检 测 ， 调 用 语句 : 
sobel G-img yo-imgy*256],2561); 
给 入 图 像 : 猴 子 “Moenkey” 图 像 人 文件 名 :monkey bmp 图像 大 小 为 256X256， 见 图 
4 一 3 一 ]。 
输出 图 像 : 略 。 
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《3.4 Robinson 算 子 边缘 检测 


一 、 功 能 

用 Robinson 算 子 进行 图 像 的 边缘 检测 。 

二 、 方 法 简介 

Robinson 笋 子 是 一 种 边缘 模板 算 子 ， 它 由 理想 的 边缘 子 图 像 社 成 。 依 次 用 边 银 模板 


去 检测 图 像 , 与 被 检测 区 域 最 为 相似 的 模板 给 出 最 大 值 。 用 该 最 大 值 作为 笋 子 的 输出 值 ， 
从 而 使 边缘 像 素 得 到 增强 ， 


Robinson 莫 子 由 8 个 边缘 模板 组 成 ， 如 图 4 一 3 一 4 所 示 。 



































4 -3 一 4 Robinson 算 子 
8 个 算 子 模板 对 应 的 边缘 方向 如 图 4 一 3 一 5 所 示 。 
1 2 3 和 5 6 7 8 
tm 
图 4 一 3 一 5 Robinson 算 子 的 模板 方向 


三 、 使 用 说 明 


1， 子 贸 数 语句 
void robinsonkip ,jp ,1x,ly) 
2， 形 参 说 明 


ip 一 一 无 符号 字符 型 二 维 数组 ， 体 积 为 xly。 输 入 图 像 ， 认 [ij[i 表 示 在 坐标 (ij 
点 处 的 像素 值 。 


ip 一 一 无 符号 字符 型 一 维 数 组 ， 体 积 为 xxjy。 输 出 图 像 ，jp[i][i] 玫 示 在 坐标 G) 
点 处 的 像素 值 。 
LUx 一 一 无 符号 长 台 型 变量 。 图 像 在 x 方 向 上 的 像素 数 。 


1 一 一 无 符号 长 整 型 变量 。 图 像 在 y 方向 上 的 像 守 数 。 
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四 、 子 枯 数 程序 (文件 名 :robinson.c) 


##define ff 人 (xyy)》 ipflxx (y)? 十 Cx) 
共 define gg(xyy) jp[lx * (7) 十 (zx)] 
void tobinson (ip ,jp lx,ly)》 ， 
ungsigned char huge *#ipy yip; 
unsigned lon 名 ] 和 ,1 了; 
fint 这 yiy yitmytmnxyrmy ypvrmxavs 
static int mmask[L8 半 3 半 341 一 
{ 1 2，1，0，0D0 和 0 一 1, 一 2 一 上 
0，1， 2 一 1，0，1, 一 2 一 1， bb， 
一 ，0，1, 一 2，0，2, 一 1,，， 0，1， 
一 2 一 1， 0 一 1， 0，1，0b 一 上 ， 2， 
一 ] ,一 2 一 ]，0，0，0，1，2，1， 
0 一 1 一 2， 1，b 一 1，2，1，0， 
1，D 一 1，2，0，2，1，0D 一 1， 
2，1，0，1， 0 一 1， 昌 一 ] 一 2 





村 
foy fx 一 DiX<IxiX 十 十 ) 
{1 ggftixy,0) 一 0; 
ggfix,ly 一 1) 一 0; 
} 
for (Gy 一 1jiy<lysiy 十 十 ) 
{gE&COiyy 一 0; 
名 gx 一 1iy) 一 0; 
} 
for (ix 一 ljix<lx 一 1;ix 十 十) 
for gg=Lriy<ly 一 13iy 十 十 ) 
{ ior fm 一 0iim< 一 ?im 十 十 ) 
fjJpv 一 0 
Inxav 一 尹 ; 
fcer (mx 一 0imx<c 一 2mxX 十 十 ) 
{ 汉 一 这 一 1 十 mx 
foer《my 一 03my< 近 一 2itmy 十 十 ) 
1 二 一 1 十 myi 
jpy 一 jpv 十 在 (jx,jy)x mask[im]Lmx]Lby]; 


证 【(pvy 全 mxav) | (im 一 一 0) tmnxav 一 jpv; 
} 
SEC IY7》 一 InXaVf# 


五 . 例 题 


用 Robinscn 算 子 对 猴子 “Monkey? 图 像 进行 边缘 检测 ， 调 用 语句 ， 
tobinson(ti-itmg yo-immg ,256|,256|17 ; 
输入 图 像 :猴子 *Morkey"” 图 像 (文件 名 ,monkey.bmp), 图 像 大 小 为 256X256, 抑 图 
4 一 3 一 1。 














输出 图 像 : 略 。 
3.5 Kirsch 算 了 边缘 检测 
一 、 蕊 能 
出 Kirsch 算 子 进行 图 像 的 边缘 检测 。 
二 、 方 法 简介 


Kirsch 算 子 是 一 种 边缘 模板 算 子 ， 它 由 理想 的 边缘 子 图 像 构成 。 依 次 用 边缘 模板 去 
检测 图 像 , 与 被 检测 区 域 最 为 相似 的 模板 给 出 最 大 值 . 用 该 最 大 值 作为 算 子 的 输出 值 , 从 
而 使 边缘 像素 得 到 增强 。 

Kirsch 算 子 由 8 个 边缘 模板 组 成 ， 如 图 4 一 3 一 6 所 示 。 


















































图 4 一 3 一 5 长 irsch 算 子 


8 个 算 子 模板 对 应 的 边缘 方向 如 图 4 一 3 一 7 所 示 ， 
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遇 
人 
曼 4 一 3 一 ? Kirsch 算 子 的 模板 方向 


三 、 使 用 说 明 


1， 子 函数 语句 
Yo 这 &irschtip ,jplx,ly) 

2， 形 参 说 明 

让 一 一 无 符号 字符 型 二 维 数组 ， 体 积 为 xxXly。 输 入 图 像 ，ip[D][Ti 表 示 在 坐标 (ij) 
点 处 的 像素 值 。 

让 一 一 无 符号 字符 型 二 维 数组 ,体积 为 ]xXly。 输 出 图 像 ，ip-_i]- 门 表示 在 坐标 人,j) 
点 处 的 像素 值 。 

lx 一 一 无 符号 长 整 型 变量 。 图 像 在 x 方向 上 的 像素 数 。 

ly 一 一 无 符号 长 整 型 变量 。 图 像 在 y 方向 上 的 像素 数 。 


四 、 子 琐 数 程序 (文件 名 :Kirsch.c) 


共 qdefine 姓 Cxy) ipLIxx (77 十 (zx)] 
扯 define gg&(Xy) jpLIxx (yy 二 (Cx)] 
void Kirschtip ,jp ixylyy) 











unsigned char huge #ipy 关 jp 
unsigned ]ong ]x,]1y; 
4 int ixyiyyimsmxymyy*jxyjyyjpvymxavs 
static jnt ImmasklL8]L3]L3] 一 
(人 5，5， 5 一 3，0, 一 3, 一 3, 一 3, 一 3， 
一 9， 5， 5 一 3，D， 5 一 3 一 3, 一 3 
一 3 一 3， 5 一 3，0， 5, 一 3, 一 3， 5， 
一 3 一 3 一 3 一 3，0，5, 一 3， 5， 5， 
一 3 一 3 一 3 一 3， 0 一 3， 5， 5， 5， 
一 3 一 3 一 3， 3 0 一 3， 5， 5, 一 3 
5 一 3 一 4， 5905 一 3， 5 一 3 一 3， 
5， 5 一 3，5， 0 一 3 一 3 一 3 一 3， 
和 
for 《ix 一 Diix< xyix 十 十 ) 
{ ECixs0) 一 门 ; 
&gftixyy 一 1) 一 0; 
forf (Kiy 一 1Y7<ly5iy 十 十 》 
{ ggECOiy》 一 0; 
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双 名 人] 一 7) -站 
1 
[for 人 X 一 13ixx 一 3 -十 ) 
for 0 一 ts -35i 工 一 } 
ior tm 一 Diitns 一 ?一 一 ) 
4 PY 一 避 ; 
to fxX 一 Ditmnxc 一 23tnx 下 下》 
1 乓 一 这 1 一 ImX; 
Jor (my 一 0gnyc 一 23ny 十 一 ) 
1 = 一 十 myt 


jpvy 一 jpr 一 芋 Cxjy?xmaskm _ Lmxj[my 


讶 《fbvtmxav lfint-=1)) nxav = vs 
1 


了 
8EtIxsiyy 一 mavs 


五 . 例 题 


用 Kiseh 算 江 对 猴 了 ”Monkey” 图 像 进 行 边 缘 检 测 ， 调 用 语句 ， 
kirschfrimg yo-img 25625617) 
得 和 人 图像: 痔 子 "“Moenkey ”加 像 ( 文 件 名 :monkey. btmp) 图像 斥 小 为 256X256, 见 图 
4 一 3 一 1 
输出 图 像 : 略 . 














3.6 -Prewitt 个 卫 过 缘 检 测 


本 动 
用 Prewitt 种 子 进 行 久 侧 构 记 尝 从 测 . 
二 、 方 法 简介 


Frewatt 代 子 是 一 种 这 绿 相 国人 子 . 它 出 理想 的 边缘 了 图像 构成 , 依次 用 耶 缘 模板 去 


站 测 图 像 ， 汪 被 检测 区 误 友 鸭 相 汪 站 模 相 给 出 最 大 值 。 用 该 最 大 值 作为 算 子 的 输出 值 , 从 
而 使 边缘 像素 得 到 增强 。 


Prewjtl 算 子 上 3 个 过 于 检 板 沁 成 ， 奸 图 4 一 3 一 8 压 示 ， 


[Ga 


能 
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六 
， | 
11， 2 -1 
1 
-1 
加 4- 3- 和 Prewitt 算 下 
8 个 算 子 模板 对 挛 鸭 所 缘 方 向 如 图 + 一 3 -8 所 扑 ， 
了 号 1 5 自 了 吕 
本 一 4 中 四 “一 A、 


到 一 3 一 Breweit 全 的 模 相 左右 
一 、 使 用 说 明 


1， 子 函数 语句 
vd Dtewitttipy jp xlyy)》 


ip -一 无 符 号 字符 型 二 维 数组 ， 体 积 为 东 Xly。 输 入 图 像 ， 记 匡 -5 直 示 放 促 标 台 刁 ) 
1 一 无 符号 宁 符 型 二 维 数 组 ， 体 积 为 ixXly。 输 出 园 像 ，ip -ij 表示 在 坐标 人 呈 ) 
点 处 的 像素 值 。 
lx - 泥 符 导 长 昌 型 变量。 图 像 在 三方 向 上 的 像素 数 。 
1y - 无 符号 民 整 融 灾 届 。 芭 像 匠 y 方 而 上 上 的 像素 数 。 


疝 、 演 郴 数 程 庆 ( 交 和 件 名 :brewitt ce) 


蔡 rlefine 三 (xy) ipllxx(yy 二 CR 
共 fitfine ggIXSy) jp xxfy) TtX) 















































void PrewWitt0p jbylxyly) 
unsigned char huge *ip <jpi 
tnsigned long |x.ly， 
Linc ixwiysimyrnxrsmny Xeyy bpv 
int mxav mask 8i 3 31 一 
1 1，1，1，1: 一 2， 1 -1 一 上 一 1 
1， 11， 1 -12 1 一 ji 一 [， 1， 
一 1 
397 


一 1] ,一 1， | ,一 1 一 2，1，1， 1，1， 
一 | 一] 一 1|， 1 一 2， 1， 1， 1， 1， 
1 一] 一 1， 上 一 2 一 ]， 1， 1， 1， 
1， 1 一 1， 1 ,一 2, 一 [|， 1， 1 一 1， 
1，1，1，1, 一 2 一 1，1, 一 1, 一 1， 
人 
for (xx 一 0O3ixX< 1x3ix 一 十 ) 
{ ggCixy0) 一 0 
gREKIK 1LY 一 1) 一 有; 
fcer Gy 一 1iiy< lyiiy 十 十 ) 
{ ggk0yiy》 一 0; 
EECIx 一 1,i77 一 0; 
1 


foer (ix 一 Ti:ix<lx 一 13 区 十 十 ) 
for Gy 一 15i7<1y 一 15y 十 十 ) 
+ for (im 一 0Oiim< 一 7;im 十 十 ) 
1 jpv 一 0; 
TIXav 一 曲 # 
for (mx 一 0imxc 所 一 25mx 十 十 ) 
{ 这 一 这 一 1 十 mxi 
for (my 一 Dimy< 二 一 2rmy 一 一 ) 
(7 一 这 一 1 十 myi 
jpv 一 jpy 十 六 GOxyjy)xmaskiLimj]Lmx]Lmy]i 


j 
让 【Cjpv>Imxav)y| fitm 一 一 0))》 mxav 一 jpbv# 
， 


gg(Cixyy)》 一 IIXavi 


五 、 例 题 


用 Prewitt 算 子 对 猴子 "Monkey ”图 刚 进 行 边 绿 愉 测 ， 调 用 话 句 : 
Prewitt(i-itng ,o-itng ,25 人 25617 ， 
输入 图 像 :猴子 "Monkey” 图 像 ( 福 件 名 :monkey, brmp) ,图 像 天 小 为 256X256, 见 图 
4 一 3 一 
输出 图 像 : 略 。 
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第 四 章 ”图像 细 化 


8$4.1 Hilditch 绍 化 算法 


-…、 巧 能 
用 Hiiditch 算法 进行 图 像 细 化 。 
二 、 壕 法 简介 


图 像 细 化 就 是 把 二 值 图 像 中 具有 一 定 宽度 的 线条 状 区 域 变 成 一 条 葡 线 ( 即 只 有 一 个 
像素 宽度 )。 图 像 细 化 大 大 地 正 缩 了 原始 图 像 的 数据 量 , 并 保持 其 形状 的 基本 拓扑 结构 不 
变 , 从 而 为 文字 识别 中 的 特征 抽取 等 应 用 葛 定 了 基础 。 细 化 算法 应 满足 以 下 条件 : (17 将 
条 形 区 域 变 成 一 条 蘑 线 ; (2) 菏 线 应 位 于 原 条 形 区 域 的 中 心 ; (3) 薄 线 应 保持 原 图 像 的 折 
扑 特性 。 

Hilqiteh 算法 适用 于 输入 图 像 为 0 和 1 的 二 值 琐 像 ， 像 素 值 为 1 的 区 域 是 需要 细 化 
的 部 分 ， 像 素 值 为 0 的 区 域 是 背景 。Hiiditch 细 化 算法 可 描述 你 下 : “ 

设 ”为 被 恰 测 的 像素 ,/z) 为 像素 户 的 灰 度 值 ,m ts 


一 1,2:…:8) 为 疡 的 8 各 域 像素 ,的 位 置 如 图 4 一 4 一 1 四 
所 示 。 


设 集 台 了 = 11) 表示 需要 细 化 的 像素 子 集 ,集合 N 辣 四 
一 158 一 到 委 0 表 未 背景 像素 子 集 ,集合 民 一 (一 纺 ! 
表示 在 第 m 次 减 荡 时 , 工 中 被 减 掉 的 像素 。 
图 像 细 化 的 减 薄 条 件 为 ， 图 4 4 1 像 当 记 的 8 人 到 
1， 后 
2， Et 富 1 其 中 区 (p 一 拉 十 aa 十 十 6 这 里 为 
_ | ，jF CnE RN 
0 ， 其 他 


只 
3， TY( 蒂 3， 其 中 (人 一 > (一 ac) 
[一 1 























4 全 (的 六 1]， 其 中 肥 ( 的 一 定 cv 这 里 c 为 


! Fe) 各 了 
16 ， 其 他 


CE， 一 
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5 xz(p) 一 1, 其 中 z(p) 一 人 1 页, 这 里 户 为 
1 一 上 
站 ，7Fors E 凡 并 县 FETUR 或 FosDETUR 
10 ， 其 他 
6， 7 在 灵 或 ip 一， 一 3,5)， 其 中 心 (p) 表 示 对 六 的 第 ;个 邻 域 像素 的 


村 


-、 人 司 用 说 明 
1， 子 函数 语句 
vcid hilditchtio-imageylxylyy》 
注意 : 子 甬 数 hilditch(? 适 用 于 灰 度 值 为 0 和 1 的 二 韦 图 像 的 细 化 。 当 对 灰 度 值 为 0 
和 253 的 二 值 图 像 进行 细 化 时 ， 还 要 用 到 以 下 两 个 子 函 数 ， 


vcid beforethinatipb ,jb xlyy》 





















































void afterthinfjp ,]xyiy) 

其 中 子 函 数 beforetbin() 用 于 把 灰 度 值 为 0 和 255 的 二 值 图 像 转换 成 灰 度 值 为 "和 1 的 
二 值 图 像 , 子 函 数 aftertbin() 用 于 把 灰 度 利 为 0 和 1 的 二 值 图 像 转 换 成 灰 度 伸 为 0 和 255 
的 二 值 图 像 , 

2， 形 参 说 明 

io-image 一 -无 符号 字符 型 二 维 数 组 , 体积 为 lxXly。io-image[ijljij 表 示 在 坐标 4 
点 处 的 像素 值 。 开 始 时 存放 输入 图 像 , 最 后 存放 输出 图 像 。 

ip- 一 无 符号 字符 型 二 维 数 组 , 体积 为 ]xXly。 输 入 图 像 ,ip[i]0] 表 示 在 坐标 人,j) 点 
处 的 像素 值 。 

jp 一 -无 符号 字符 型 二 维 数 组 , 体积 为 jxXly。 输出 图 像 ,jp[iJDj 表 示 在 坐标 人 ,j) 点 
处 的 像素 值 。 

lx 一 一 无 符号 长 芭 型 变量 。 图 像 在 x 方向 上 的 像素 数 。 

1y 一 一 无 符号 长 整 型 变量 。 图 像 在 了 方向 上 的 像素 数 。 


四 、 子 函数 程序 (文件 名 :hilditch. ce) 


共 ineludqde ”alloc. hb” 
void hilditechfio-image ,1]xty) 
































void huge < 关 io-imagei 

unsigned long xly; 

{ cehar hugce #TfT，x 有 ; 
char n[LLO]; 
unsigned int coumtetri 
Short 攻 ,Shori ,xxXynrni 
jlong 1,j, KE1],kK12,kK13，Ek21 KE22,kk23,kk3l,kk32,kk334sizey 
Size 一 《long)lx < (long)lyi 
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g 一 (unsigned char huge # )farmallocfsize 5 
if kg 一 一 NULTL) 
{ pzinttCyrmetmory allorate error | An2 ); 
xitf 一 工 ) 
{ 一 《unsigned char huge # )io-images 
for Ci 一 Oilxii 十 十 ) 
for 人 一 0ij<lyj 和 十 二 ) 
{ 区 一 1 芝 ] 十 下 
ifEE] 1 一口 


{ 开 kk] 一 1 
gLkk] 一 fkk]; 
} 
counter 一 工 
do 


{ printff” 的 全 关 ”countery 
counter 十 十 ; 
让 【bicskeyftl) 7 bresk; 
Shaorl 一 日 
for 0 一 05i<<lxii 十 十 》 
for 与 二 09j<ly 十 十 )》 
{ kk 一 isly 十 1 
话 CTEkk]<<O7 fk] 一 0; 
gLkk_ 一 {kk]; 
} 
for (i 一 15i<lx 一 1 十 十 》 
for 菇 一 13j<ly 一 1 和 十 十 ) 
{EK 一 ixly 十 js 
让 (人 f[kk， 1 一 1) continue; 
kkil 一 (一 xly 十 j 一 1 
kk12 一 XIKll 十 13 
kk13 一 kk12 十 1; 
kk21 一 (ly 十 ] 一 1 
kk22 一 kk21l 十 1 
kk23 一 kk22 十 1 
kgE31 一 〈i 十 1])*1y 十 j] 一 1; 
kkK32 一 kk3l 十 13 
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402 


kk33 一 KE32 十 1 
让 《(gLEE121 Re grEK21] 忆 和 g[EK23] && gLEKK32]) 1= 0) 
{ econtintues 》 
nrn 一 [kk11] 十 gtLkkl12] 十 帮 -kk13] 二 gLkk21] 十 gLkKE23] 
十 gLkk31] 十 gLkk32] 十 ELEEk331 
证 nrn < 近 一 1) 
4《 LEKE22] 一 23; 
coOntinue 
| 
mL4] 一 和 KE11]，nL3] 一 fLKEK12]:，n[L2] 一 荆 LEK13]， 
a[L5. 一 二 kk21], nl] 一 入 kk23]; 
nL6] 一 fkk31];nL7] = LkKk32 ;nmnL8: 一 TLkk33]; 
n[9] 一 n[1]8 


for 人 一 1 k<8ik 一 攻 十 2) 
{ 让 《CInLk]) 六 8 Cn[k 十 1 | 十 2 了 7)》 xx 十 十 二 
计 《xx ! 一 1) 
{ 于 KK22] 一 2 
comntimnae 
} 
让 (LEE12] 一 = 一 1) 
{ fLkkl12] 一 0 
nl[3] 一 人 0; 
XX 一 站 了 
for 全 一 1 kk<8i 一 KK 十 2) 
{ 这 《CIn[k)》 区 人 Cn[ 二 1 | nk 十 2])) xx 十 十 二 
主 (xx ! 一 1) “ ， 
《LEK12] 一 一 1 
。continue ; 
} 
fLEKk12] 一 一 13 
n[L3] 一 一 1; 
} 
计 (LEK21] 1 = 一 1) 
1 LKKE22] 一 一 1 
shoti 一 1 


CDntinues 





fkk21] 一 0; 
n[L5] 一 避 
XxX 一 站; 


foer k 一 1 <8K 一 攻 十 2) 


[让 CUInaTLK]y genEk 二 1 人 nk 十 2 xx 十 十 


计 《xx 二 一) 
{ fkK21] 一 一 1; 
fkk221 二 一 1 
shorl 一 1 

else 
{ 作 kk21 一 一 13 

} 
} While (shori )j 
farfree(g2i 
上 


wo 这 Deforethingip ,了 bxyly) 
unsigned char huge 关 ip，#j]Pf 
unsigned long lxyly; 
{ unsigned long 19j; 

fcor fi 一 Drisclyji 十 十 ) 

for 和 一 0;5j<1x5 十 十 ) 

{ 证 《ip 下 * ]x 十 站 >>0) 
{ 和 王 s< tx 十 站 二 0 
else 


{ 第 记 < 十 订 一 1 


void afterthin(jp ,lxyly) 
unsigned char huge 关 j]P; 
unsigned lon 名 1x ,1yi 
1 unsigned long ii 
for 0 一 03ii<lyii 十 十 ) 
for 扣 一 0 < 妥 区 妆 十 十 ) 
{ 种 Ci*1x 十 让 一 《1 一 jp 所 关 代 十 条) 关 2553 》 
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五 、 例 题 


用 Hildilteh 算法 对 数字 “8" 图 像 进行 细 化 ， 调 用 语句 ， 
beforethinfi-img，o-imgy2564 256173 
hiiditechKo-itng,2561,25 人 73 
aftetrthin(o-imgy,2561，256173 
输入 图 像 ， 数字 “8g” 图 像 (文件 各 ，8. bmp) ， 图 像 大 小 为 3566 又 256， 见 图 44 一 


”输出 图 像 ， 见 图 4 一 4 一 3。 





图 4 一 4 一 2 ”数字 “8 图像 图 4 一 4 一 3 细 化 后 的 图 你 


S 4.2 Pavlidis 细 化 算法 


一 、 功 ”能 
用 Pavlidis 算法 进行 图 像 细 化 。 
二、 方法 简介 


Pavlidis 的 异步 细 化 算法 是 通过 并 行 与 串 行 混合 处 理 来 实现 细 化 ， 它 用 位 运算 进行 
特定 模式 葛 匹 配 ， 所 得 的 骨架 形态 是 8- 连 接 的 。 沪 算法 适用 于 像素 值 为 0 和 1 的 二 值 图 
像 。Pavlidis 算法 的 细节 见 文 献 L[58]， 

三 、 使 用 说 明 


1.， 子 函数 语句 
404 


本 





void paylidis(io-itmage xly) 
注意 ;， 子 函 数 pavlidis(? 适 用 于 灰 度 值 为 0 向 1 的 二 值 图 像 的 细 化 。 当 对 灰 度 值 为 0 
和 255 的 二 值 医 像 进行 细 化 时 ， 还 要 用 到 以 下 两 个 于 晒 数 : 
void beferethinkip ,jpP,lx,ly) 


























void afterthingpylxyly) 

其 中 子 函数 beforethinC) 用 于 把 灰 度 值 为 0 和 255 的 二 信 图 像 转 换 成 灰 度 值 为 和 1 的 
二 值 图 像 , 子 函 数 afterthin( 用 于 把 灰 度 值 为 0 和 1 的 一 信 图 像 转换 成 训 度 值 为 0 和 255 
的 二 值 图 像 。 

2， 形 参 说 明 

io-image 一 一 无 符号 字符 型 二 维 数组 , 体积 为 lxkXly。io-image[i]j[j] 表 示 在 坐标 人) 
点 处 的 像 老 值 。 开 始 时 存放 输入 图 像 ， 最 后 存放 输出 图 像 . 

ip 一 一 无 符号 字符 型 二 维 数组 ， 体 积 为 kxly。 输 入 图 像 ，ip[i][j -表示 在 坐标 Gj) 
点 处 的 像素 值 。 

敦 一 一 无 符号 字符 型 二 维 数 组 ， 体 积 为 xly。 输 出 图 像 ，jip[ 订 [表示 在 坐标 (ij) 
点 处 的 像素 值 。 

lx 一 一 无 符号 长 整 型 变量 。 图 像 在 x 方向 上 的 像素 数 。 

1y 一 一 无 符号 长 整 型 变量 。 图 像 在 y 方向 上 的 像素 数 。 


四 、 子 函数 程序 (文件 名 :pavlidis,c) 


void pavlidisfio-imageytxyiy》 





























void huge # io-imriages 
unsigned long 1x 17， 
{ char erase，n[8]; 
char huge =j; 
unsigned char bdrt,bdr2:bdrd4ybdr5， 
short ck ,bi 
long ij,kK ,KE1 ,kkK2,EK3; 
于 一 《unsigned char huge #< )io-inmaage' 
Her 扯 王 15<l]x 一 1 十 十 ) 
for 昌 二 11y 一 1 5 十 十 ) 
fkk 一 ixly 十 jj 
证 《ffLkk] >》 fkKE] 一 1 








} ， 

fo 仁 一 DT 一 自 , 基 攻 2 一 1y 一 1 ix 1 十 十 ,KE1 十 一 区 EkE2 十 1]y) 
{ fLEk1] 一 0; 
fLKKE2] 一 0; 


fer 和 一 0EE 一 人 x 一 1) *# yij< lyii 十 十 , 攻 丰 十 十》 
405 


四 
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{ 人 一 0 
fgK | 一 Di 


erase 一 1 


While (erase ) 


{c 十 十 ; 和 二 
for G 一 15i<tx 一 1 十 十 ) 
for G=15j<ly 一 1 十 十) 

{ kk 一 ixly 十 ji 

这 (LEKE] 1 一 1) continue 

kkl 一 kkE 一 1 一 1 
KK2 一 kkl 十 1， 
kk3 一 kk2 十 1 
alL3] 一 fk1]; 
3[L2] 一 Lkk2]; 
nflj 一 {Lkk3]; 
kkl 一 Ek 一 1 
kk3 一 kg 二 1; 
nl4 一 fLKKI 
nlLO] 一 帮 kk3]; 

kkl 一 kk 二 ly 一 1， 
kk2 一 kk1l 十 1; 
kk3 一 KK2 十 1 
nL5] = fkkl]; 
nlE6] = 一 人 KZ] 
nL7] 一 蕊 kk3]; 

bdrl 一 0 

for 人 让 一 DIE<8Ik 十 十 ) 
{ 让 CnLk 一 17》 bdrl | 一 0x80> 人 KE 





这 《fbhdrl 六 0252) 一 一 0252) continuet# 
fkk] 一 2; 
b 一 人 0 


for kk 一 Di 二 一 7 汪 十 十 ) 
{b 十 一 bdrl 训 (0x80m> 人 KE) )} 

太 中 <= 一 1)HLkk] 一 3 

这 《fbdrl 人 0160)4 一 0 Rbdrl 和 0731 一 0&R cbdrl 和 0210) 一 一 0) 
{fLkk] 一 3; 》 








else 计 Libdrl&0301)1 一 0 Rbdrlg034) 1 一 站 Rbdrlt042) 一 一 吕 
{fLkk 一 3 ) 
else ii (fbdrl 8&.0202) 一 一 08A CObdrl 浆 0) 全 二 10) 


{fLEK] 一 3 ， 
else 1 人 bdtl 个 0240) 一 一 站 你 和 《bdrt 和 010907 1 一 个) 
4 fLkk- 一 3 》 | 


else 证 【fbdrl 六 050) 一 一 DR bdri 必 0201 1 一 0 
{ fk 一 33》 

else iif(bdrl 本 012) 一 一 0 Re fbdrl 皮 0 1 三 站 - 
{fLkkj 一 3 





} 
for 0 一 1;i<lx 一 1 二 十 》 
fcr 日 一 1j<ly 一 1 和 于 村) 
《kk 一 ixrly 十 j; 
计 《 (fkKK] ) ceontinuey 
KEL 一 KK 一 1 一 1 
kk2 一 KEK1 十 1; - 
kk3 一 kk2 十 1 攻 
nL3J] = fLKE1I] 0 
n[L2] 一 【LKkKK2]; 
na[Li] 一 所 kk3] 
kk1 一 kk 一 1 人 3 
kk3 一 KE 十 1; | 
[L4] 一 夺 Lkkl]; 
nLoj] 一 fLKk3]; 本 
kki 一 kk 二 ly 一 1; 人 
kk2 一 kkl 上 1 由 
kk3 一 kk2 十 1 和 
naL5] 一 红 kk1]i 
na[L6] 一 纪 Ek2]; 人 
nf[7 了 ] 一 ftkk3] ee 
bdrt 一 bdr2 一 0; 由 
fer (一 DiK< 一 7 十 十 ) 
{ 让 Cn[Kj] 之 一 1 bdrl | 一 0x80 人 Ki 


if (fn[K] > 一 2 bdr2 | 一 0x80D>K 

， ， ， . 
fbdrl = 一 bdr27) 由 
{fLkk] 一 4; ， 站 


本 07 





'eOntinte + 
} 

这 (fkK] ! 一 2 continue; 

让 《 《bdr2 8 0200) 1 一 08 hbdl 六 010) 一 一 ] ks 已 
(bdqdrl 中 0100)7 5 一 08 六 《bdrl 人 001) 1 一 0 | 
《fbdtl 公 0100) 1 一 0 | bdrl 六 00 41- 0 Re 
《bdr1 了 060) 1 一 0&&e hdrl 站 06) 1 一 0) ) 

{ 于 [kk] 一 45 
else 计 《Kbdr2 扩 040) 1 一 0 &R Chdrt & 02) 一 一 08 
(fbqdr1 到 020) 1 一 0&& (bdrl 有 Di00) 1 一 0 || 
《Kbdrl 六 020) 1 一 0 | (bdrl 本 0100) 1 一 0) Re 
fbdrl 怀 014) 1 一 08&& bdrl 扩 0201) 1 一 D)) 
{《f[Lkk 一 4 )} 
else 计 (bdr2 & 010) 1 一 0 &RR bdrl 8& 0200) = 一 0 
《bdrl 忆 04) 1 一 0& (pbdrl 020) 5 一 0 || 
《bdrl 扩 04) 一 0 0bdrl 咏 020) 一 0) 六 
《bdrl 避 03)7 1 一 0 8,fbdrlg& oltoy 1 一 0 
{ 于 kk 一 4 } 
else 这 《(bdr2 耻 02) 1 一 0 避 本 (1 (bdrl 芭 040)) BR 
《fbdrl 六 01) 1 一 08 上 (bdrl 和 04) 1 一 0 || 
《fbarl 六 D1) 1=01Cbdrl 久 04) = 0 R 
《hdrl 0300) 1 一 08&& Chbdrl 六 030) 1 一 0)) 
{fLkK] 一 4 》 
} 
for fi 一 15<Ix 一 1 十 十 》 
for 一 1 jy 一 1 和 十 十 》 
{ kk 一 ixly 十 ji 

让 《f[LKE] 一 2 continue ， 

kkl 一 kk 一 jy 一 1 

kk2 一 kkl 十 1; 

kk3 一 kkz 十 1) 

hf[L3] 一 人 LEK1]; 

nf2] 一 f[Kk2]， 

nhL1] =fLkk3]; 

kkl 一 SEE 一 1; 

KKE3 一 kk 十 15 

na[L4] 一 {Lkkl]; 

nhLO] 一 f[LKK331; 
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全 人 


kkl = 一 kk 十 ly 一 1 
KK2 一 kkl 十 1 
kk3 一 kk2 十 1; 
nL5] 一 fLkk1]; 
nlL6j] 一 人 LEK2]; 
n[7] 一 TLkK3]， 
bdr 一 bdqr5 一 0 
吉 r 全 一 站 < 一 了 攻 十 十 ) 
{ 让 (Cn[LK] > 一 4) bdrd | 一 0x80 盖 人 Ki 
if Cn[E] 之 = 5) bdr5 1 一 0x80>> > 


)} 
计 《(bdrt 本 010) 一 一 0) 
《 娃 kk] 一 53 


continue ; 
4 
让 《fbdqrd4 人 040) 一 一 0 & 本 bdqr5 一 一 0) 
{ 下 KK ] 一 54 
cofttihue 
让 (GLKk] 一 一 3 11 于 KKJ 一 一 全 让 KK 一 c; 
erase 一 站 
jeor 各 一 151<1x 一 1 十 十 ) 
for 人 一 1<ly 一 1 十 十 ) 
| KE 一 1x#xly 十 ji 
计 姓 [kk 了 一 一 2 站 于 kk 一 一 5) 
{ erase 一 ]; 
ffkk] 一 0 


void beforethinkip ,jp xyiy) 
Unsi 玫 ned char huge # 让 ，# 刘 ; 
unpsigned long 1xlys 
《unsigned ]ong ij; 

Ior 如一 05i<ly3i 十 十 ) 
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far 间 一 六 关东 苛 十 十 ) 
1 主 GpLsxlx 十 门 盖 0) 
: 御 放 < 十 让 一 Di ， 
后 ] Se 


{ 记 Cs<1x 十 和 一 1) 


void afterthintip lxyiy) 
unsigned char hage 关 训 ; 
unsigned !ong ]x 1y; 
unsigned long 1 

for 人 一 Oili<ly 和 十 十 ) 

foer 全 Dis]xjii 十 十 ) 

1 jp[xix 十 和 门 一 (1 一 j 人 *lx 十 站 7)#255，】} 

} 


五 、 例 题 
用 Pavlidqis 算法 对 数字 “8? 图 像 进行 细 化 , 洞 用 语句 ， 


beforethinfi-imgso-inmg 25 人 ,256173 

pavlidisko-img 2536 ,25 人 67; 

aftetrtbim(o-itmgy256]1，256173 
输入 图 像 : 数 字 “8? 图 像 (文件 名 :8.bmp)， 几 家 大 小 为 256X256， 见 图 4 一 4 一 2。 
输出 图 像 : 略 。 











3$4.3 Rosenfeld 细 化 算法 


一 、 功 能 
用 Rosenfeld 算法 进行 图 像 细 化 。 

一 、 方 法 简介 

Rosenfeld 算法 是 一 种 并 行 组 化 算法 , 所 得 的 骨架 形态 是 8- 连 接 的 。 该 算法 适用 于 像 
素 值 为 9 和 1 的 二 值 图 像 。 有 关 算法 的 细节 见 文献 [59]。 

三 、 使 用 说 明 

1.， 子 函数 语句 


void rosenfdfio-itnage ylx7) 
410 












































注意 : 下 函数 rasenfdO 适 用 于 奈 度 值 为 6 和 1 的 二 值 图 像 的 细 化 。 当 对 灰 度 值 为 0 
和 255 的 一 信 图 像 进 行 细 化 时 ， 还 要 用 到 以 下 两 个 子 函 数 ， 


void betiorethintip jpvlxzyly》 
void afterthingip ,]x,1y) 











其 中 子孙 数 beferethin() 用 于 把 忒 度 全 为 0 和 255 的 二 值 图 像 转换 成 灰 度 值 为 0 和 1 的 
二 债 图像 , 子 函数 afterthin0) 用 于 把 灰 度 值 为 0 和 1 的 二 值 图 像 转换 成 灰 度 值 为 06 和 255 
的 二 值 图 像 。 


2. 

















形 参 说 明 


io-image 一 一 无 符 导 字符 型 一 维 数组 , 体积 为 lxkXly ,io-image[i-j -表示 在 航标 人,j) 
点 处 的 像素 值 。 开 始 时 存放 输入 图 像 ， 最 后 存放 输出 网 像 。 
ip 一 一 无 符号 字符 型 二 维 数 组 ,体积 为 ]xXly。 输入 图 像 ,让 DJDJ 表 示 在 坐标 各 已 


处 的 像素 值 。 























训 一 一 无 符号 字符 型 二 维 数组 , 体积 为 lxxly。 输出 图 像 ,ipG]C 表 示 在 代 标 避 j) 点 
处 的 像素 值 。 
lx- 一 无 符号 长 整 型 变量 .图像 在 x 方向 上 的 像素 数 。 


]y- 














无 符号 长 整 型 变量 。 图像 在 y 方 同 上 的 像素 数 。 





四 、 子 函数 程序 (文件 名 :rosenfq.c) 


void rosenfidfio-irmage Xily) 


wotd huage x iorimages 


unsigned long ]x ys 


《char huge 基于， 关 多 ; 


char n[L10]; 
char a[5] 一 10, 一 1 1， 0 0j，b.5] 一 410， 0 0，1， 一 1 
char nrndycondsn48n26:n24 .nd6n6gsn82:nl23n345n507n781， 
short K,shoris 
long 1 ii jykk,kklykk2,kk3sizey 
Size 一 《long)lxx (ong)lys 
g 一 《unsigned char huge # )farmallocksizeyy 
诗人 《一 一 NULL) 

{ Printf tmermory allocate error 1 An )i 

exit(K 一 133 

} 
f 一 《ansigned char huge # )io-images 
foy (kk 一 章 ;k<sizeskk 十 十 ) 

(eg[kk] = 人 sk; ) 
Qo 

{ shori 一 由 ; 


411] 





for 全 王 1 下 所 一 4 让 十 十 ) 
t for 0 一 15i<x 一 1 十 十 ) 
{ 主 一 1 十 afk]; 
for 人 一 1 一 1 本 十 十 ) 
{kk 一 ixly- 二 ji 
计 《 上 fkK] )》 cortinue; 
讶 一 j 十 bb 
REK1T 一 il 十 jj 
主 人 [1 continues 
kkl 一 kk 一 1 一 1 
KK2 一 人 KL 十 1 
kk3 一 kk2 十 13 
n[3] 一 蕊 kkij; 
bf2] 一 人 KKE2]; 
na[LL] 一 fLKE3]; 
Kkl 一 KKk 一 1; 
kkE3 一 kk 十 15 
nt4] 一 拒 kkl]s 
nL8] 一 夸 kKk3]; 
kk1 一 kk 十 ly 一 1; 
kk2 一 kkl 十 1; 
KKk3 一 kk2 -二 1 
nft5] 一 太 Eki] 
n[L6] 一 fLEE2]; 
nf7] 一 fkk3js 
ntnd 一 nt] 十 nt2 二 nlL3] 十 nLd4] 
十 nL5] 十 n[6] 十 nf7] 十 n[L8J]， 
计 (nrnd 扫 一 1) continues 
cond 一 0; 
nd48 一 nlL4j 十 hnL8; 
n26 一 h[2] 十 nlL6]; 
n24 一 nl2]l 二 nf4]; 
nd46 一 mL4] 十 nL6]i 
n68 一 nL6] -二 nmnL8]， 
n82 一 对 8] 十 n[2]; 
nl23 一 am[1j 十 at2 十 mn[L3， 
n345 一 n[3] 十 nL4] 十 n[5]; 
n567 一 nf5] 二 ni6j 十 nfl7] 





中 


生 1 2 





n781 一 nlL7] 十 n[L8j 十 mLlj; 
这 (nlL2] 一 一 1 8 人 nd48 一 一 0&Rn567 > 站) 


《 诗人 《 1 eond ) continuey 


g[Lkk] 一 0 
shori 一 ]; 
CDntinte ， 


} 
诗人 n[L6 一 一 1 &Rnd48 一 一 0 R&RR&nl123 全 


{ 计 5 1 eend ) continue 
&LEk] 一 0; 
shori 一 1 
coOntintue ; 


和 
i Cn[8] 一 = 1 gg&n26 一 一 08&n345 > 0) 


{ 过 《1 eond ) continue; 
g[Lkk] = 0; 
shori 一 1; 
continue# 


} 
让 人 n[4] 一 一 1 8&&n26 一 一 0R&R&n78L 全 0 


{ 这 1eond )》continues 


名 LE ] 一 0 
shori 一 1; 
eontinue 


} 
这 Cn[5] 一 = 1&&nd46 一 =0)》 


{ 让 (1eond ) continuey 


gLkkj] = 一 0; 
shori 一 1， 
continte， 


这 tn[9 了 一 一 188&n68 一 = 0) 


{ 计 (1cond ) econtinuey 


gLKK] = 0 
shori 一 1; 
continte# 


} 
in[] 王 = 188&n82 = 一 一 0) 
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放 ( Leond )》 continuej 
区 kkj] 一 0 
shori 一 1; 
continue 
} 
让 fnL3] 一 一 1&&n24 = 一 0) 
:让 econdy continuey 
gLkk_ 一 0 
shorl 一 1; 
centinues# 
} 
cond 一 1 
这 (1 eceoad eeontinue 
ELkkJ」 一 0; 


Sheri 一 1; 


fcr 如一 站 ji<]X 半 二 十) 
for 和 一 09<]y 避 十 十 
kk = 一 ixly 十 ji; 

fLkk] 一 gLkK]; 





} 


while《〔〈 shcorl 7 
fatrfree(gyi 


ve 诅 beforethintip ,jpylxyly) 
unsigned char huge ip， 关 生 ; 
unsigned long 1]x ,]y; 
{ unsigned Jong ij 

for 昌 一 Oily3sli 十 十 ) 

for 品 关 01x 和 十 十 ) 

{ 让 (ipEix1lx 十 i 人 0) 
{ jpPtrlx 二 一 0 } 
else 


{ jp 和 < 坟 二 一 19 


站 1 和 





void aftefrthintjp ix jyy》 
mnaigTea char huge > 让; 
unsigned tong 1x 7; 
{ unsigned long jj 
fer GOQ5i< yi 十 十 ) 
for 避 一 人 jj<ix 和 一 十 ) 
(pf 区 十 和 一 人 一 让 [ix 区 二 *2554 


五 、 例 题 


用 Rosenfeld 算法 对 数字 "8" 图 像 进 行 细 化 ,调用 语句: 

beforethin ti-imgyo-imgy2561，25861)3 

rosenfdko-img,2561,，2561)3 

afterthinto-itmgy 2561,25 的 7 
输入 图 像 ， 数 字 “8? 图 像 ( 文 件 名 :8,bmp)， 图 像 大 小 为 256 关 256， 见 图 4 一 4 一 2。 
输出 图 像 : 略 。 
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第 五 篇 “人工 神 经 网 络 


第 一 章 “” 神 经 网 络 模型 
Y1.1 多 层 感知 器 神经 网 络 


一 、 功 能 
多 层 辣 知 器 神经 网 络 模型 与 误差 反 向 传播 学 习 算 法 。 
工 、 方 法 简介 


多 层 感 知 器 神经 网 络 由 输入 层 、 输 出 层 和 若干 个 隐 层 组 成 .。 输入 层 有 六 个 节点 ， 输 
出 层 有 邮 个 节点 ， 每 个 隐 层 有 若干 节点 。 第 产 个 训练 样本 为 区 "一 [za， 人 po ， 
对 应 的 理想 输出 为 也, 一 [2 do 人 ds]。 网 络 中 当前 层 第 于 个 神经 元 为 吾 1 其 输入 
3 为 

0 了 人 >， Yanm 十 尹 
其 中 oz 是 上 一 层 第 # 个 神经 元 的 输出 ，z 是 上 一 层 第 ;个 神经 元 的 输出 与 本 层 第 7 个 神 
经 元 的 输入 之 间 的 连接 权 ，& 是 本 层 第 了 个 神经 元 的 闪 值 。 神 经 元 zi 的 输出 oz 为 
oo 一 sp) 
这 里 Fo 是 非 线性 3S 型 函数 
] 
1 二 

多 层 感 知 器 神经 网 络 的 误差 反 向 传播 学 习 算法 如 下 : 

1 胃 各 权 和 了 闪 值 的 初始 值 rrf0) . 纺 60) 为 小 的 随机 数 。 

2. 给 定 己 个 训练 样本 Xp 一 1,2，… 已 ) 和 对 应 的 理想 输出 刀 ,( 声 一 1;2，……，P) 。 

3. 信息 前 向 传送 ， 

许 算 网 络 各 层 的 输出 
om 一 sw) 一 7(， son 十 中 ) 





4， 误 差 反 向 传播 ; 
隆 层 : 02 一 op(1l 一 op) > bx T 
. 
输出 展 ， 8 一 opfk1 一 oo)(d 一 


5， 收 改 权 和 闲 值 
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-一 -rmi 一- 


ti 人 十 1 一 Ta 十 天 人 on 
已 十 1] 一 咱们 十 下 人 








其 中 心 是 学 习 率 ， 
6. 重 虽 25 步 ， 直 至 己 个 样本 都 训练 一 这 。 
7、 基 断 是 天 满足 精度 要 求 。 若 满足 ， 则 停止 训练 ， 否则 ， 转 至 第 2 步 。 


三 、 使 用 说 明 


趟 子 函 数 语句 
信息 前 癌 传送 ， 
void feedforwatrqdflayernumnkyywsb) 
误差 反 向 传播 (计算 8 : 
void ealcdelta(iayerrutmy nEO yywydelta) 
更 新 连接 权 值 zw， 和 阔 值 少 : 
woid UpdateKlayernumenskyyydeltaymitywyb) 
计算 S 型 彗 数 的 位 ， 
double fx) 
计算 S 型 困 数 的 导数 值 : 
double fxy》 
初始 化 权 值 ,和 巾 值 凡 : 
void initflayernumsnsky wby) 
输入 网 络 的 输入 模式 ， 
void inputtn yy) 
输出 《显示 ?网 络 的 结 划 : 
void outputklayernumnykyy) 
存 异 网络 的 各 种 参数 
void savebatratmctetrftlayernumynky wb) 
读 取 网 络 的 各 种 参数 : 
void readparameter(Klayernumsnekywyb) 
2， 形 参 说 明 
layernum 一 一 整 型 变量 。 多 层 感知 器 神经 网 络 的 层 数 。 
n 一 一 整 型 : 维 数 经 ， 长 度 为 layeraum。an[ 菇 表示 神经 网 络 第 ? 层 的 节点 数 。 
k 一 一 整 型 变 址 ， 袁 示 数 组 ni =0,1 ,iayernum 一 1) 的 最 大 值 。 ， 
w 一 一 双 精 度 实 袁 三 维 数组 , 体积 为 layernumn XEXk。w[o[][ 门 表示 第 !1 层 第 
i 个 节点 与 第 ! 层 第 ) 个 节点 之 加 的 连接 权 值 。 
hb 一 一 姑 精 度 实 型 二 维 数组 ,体积 为 layernum xk。hb[i[ 门 表示 第 ! 层 第 j 个 神经 元 
的 阅 恒 。 
qdelta 双 精 度 实 型 一 维 数 纽 , 干 积 为 layertrm XKk.。delta[][ 门 表示 第 ! 层 第 个 
神经 元 的 误差 信号 8 。 
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y 一 一 双 精 度 实 型 二 维 数组 ， 体 积 为 layernumXk。y[ 了 荆门 表示 第 上 层 第 7 个 神 歼 元 


的 输出 俏 。 
d 一 一 双 精 度 实 型 一 维 数组 , 长 度 为 n[layernum 一 1j。d. 疡 表示 得 出 层 第 7 了 个 神经 元 


的 理想 输出 。 
miu~- 一 双 精 度 实 型 变量 。 神 经 网 络 的 学 习 率 mw。 
四 、 子 数 程序 (文件 名 :mlipyec) 


共 incluae ”stdio, hy 
并 include ”math. hy 


并 inelude ”uniforrmeey 





Static void feedforwardflayernum nkyyy wb) 
int K,layermnurmsn[ ]; 
double 站 LJy sb] 
{f int ij 
double ui 
double 上 人) 
Her 人 一 1 layernum il 十 十》 
{ for 人 一 05j<<n[ 由 5 十 十 》 
fu 一 0.0; 
for (i 一 05i<nDl 一 1 和 十 十 》 
{u 一 由 十 到 [x 攻 十 认 *k 十 门 *YLQ 一 1 x 上 十 让 ) 
u 一 十 bllxk 一 让 ; 
y[s 下 十 站 一 fu 


static veid calcdeltatlayetrnttmynyK dyywydelta) 
int 帮 ,layeraumyn[ ji; 
double dL] ,wwTTyT ,delta[]; 
{ intiyj lil; 
double 雪 (7; 
for (ij 一 0jj<a[layernum 一 1 十 十 )》 
1 = jayernum 一 1; 
delta[Lli #* 下 十 门 一 《di 一 叶 昌 关 基 十条》 关 刘 人 日 工 关 其 十 刘 ); 
fez 人 一 1ayernutm 一 2 人 人 2 人 和 一 一 ) 
{ for 和 = 一 0j<nD;ij 十 十 》 
418 





ji] 


{ deltaLlxk 十 一 0.0; 
for ki 一 Di<nLl 二 1;i 十 十 ) 
{ deltaLl #* 下 十 门 十 二 delta[ 人 十 1) 关 攻 一 计 关 由 [十 1)# 攻 十 )) 关 基 十 


delta[Ls<K 十 说 一 刘 (y 吕 < 十 ix deita[ 关 攻 本] 


statice void updateflayetnumn kkyyydeltaymiuywb) 
int ,layernumsynl |]; 
double miuyb[L wyLj dettaL ]; 
fint ils 
for 红 一 1 和 <layernumil 十 一 》 
.1 for 和 =05js<cn[ ji 十 十 ) 
{ for (一 05i<n[I 一 Lj5i 十 ) 
{ 到 LOLsE 十 让 # 基 十 站 十 一 miusdelta[lxKk 十 和 xy[d 一 1)》s#k 十 训 ， } 
了 人 * 攻 十 和 十 三 mia#deltaLl * 攻 十 扑 ， 








Static double fx 

double x; 

{ double f 
全 一 1.0701.0 十 exb( 一 X) 7 
returntftlyY 


static double 纪 5x) 
double x; 
{ double fd; 
所 1 二 生 x《1L 一 X); 
Feturmnttd171 


Static wo 刘 initflayernumy akywyb) 
int 长 ,1ayermnttmsynf[ ] 
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double w[ ],b[L ] 
{ int ili; 

long int seed ; 

double uniforrmt 

seed 一 1357911 

for 1 一 11<layernumil 十 十 》 

{ for 一 05j<nbjij 十 十 ) 
ffer 各 一 On ll 一 1 十 一 ) ， 
{ WEC YE 二 iD*k 十 门 一 uniform(0.0，1.0ywseed)i } 
bLI*E 十 门 一 uniformtO. 5 1 .0&seed7i 


static void inputknyy》 
int ni jy; 
double y[L 
{ int 1 

Printff” wwnInput of MILP?” )， 

for 人 一 0DjcnaLo];j 十 十 》 

{ Printft* haInput battern 了 (0 dy 一 ); 
Scanif” 咱 ] 伯 Rey[j]); 


static void output (layetrnumns ksy) 
int ,1ayermurmyn[ ]; 
double y[L 
{ int jy 
Printf (AnOutput of MLPYn7D) ; 
for (一 05j<nLlayernum 一 15 十 十 ) 
1 Print ayY( 的 do%d) 一 闻 1f layernum 一 1 jy[LCayernum 一 1)x#x 上 十 和 ?7 


static void savepatatrmetet(layernutmsny kh) 
int 帮 ,layernumyn[]; 
doubje mw[],bD;: 
fintiyjils 
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} 


char fnamel[L14]; 
FILE xftp; 
PutstwNnInput natme of netwrorgE data filey)， 
scanff” os” ftnarmel)s 
诗人 fp 二 Iopenfinarmiejyw" 一 一 MLLL)》 
{ patst mnCannot open file7 7 
eXitKODS 
上 
fprintftfp ”00dwnv jayernum ) ; 
for 和 一 01 一 layernutmil 十 十 ) 
{ fbrintfCfp 吕 dvn" ynLl 7 } 
foey L 一 1 1 一 laycrnumjil 十 十 ) 
{ for 各 一 05<<nt 5 十 十 》 
{ fprintfCip” 阁 fn ,bLls*K 十 和 ); 
for fi 一 05yi<cnlLi 一 1 十 十 ) 
{ fprintf( 这 上 咱 fn ywrL 人 lxk 十 ix< 长 十 7》 
} 。 
， 
felose(Cfp); 


static void readpararmeter(jayernumenykywyb) 


int * 上 ,*#]ayernumyn[]; 
double 交 吕 ,bf[L]; 
int 1 


char fname2[14]; 
FILE #*fpi; 
puts (wwnInput the name of trained netwrork data 王 le 7; 
Scanftt” 296s” inarme273 
计 人 P 二 fopenffname22r)) 一 一 NULL)》 
fputsf" ns7Cannot open file") ; 
exitKO)s 
} 
iseanf (fp ,”01 人 ayernutm ys 
for 昌 一 0 站 1]<(#]layernumyl 十 一 ) 
{ fscanfffp dgnD 7 
xx 一 nlL0j]i 
for (1=1;1< 一 (xlayernum)iT 十 十 ) 
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{ 证 CCxk<nl]) #*K 一 ni | 
for 和 二 1 (<=1layernumyi 一 十 ) 
ffer O 一 0Hj<nD_ 十 十 ) 
{ fsceanfffp” 奴 ] 和 ,全 b[*《xk)7 十 门 ); 
for ki 一 Ori<nLl 一 吉 1 十 十 ) 
{ fseanfgfipyw 区 ] RarLCLx 【Ki 《xsk) 十 门 3》 


} 


felose(fp yi 

} 

至、 例 是 

用 多 层 感知 器 神经 网 络 求解 异 或 判决 问题 。 异 或 问题 可 摘 述 如 下 
1 了 过 
性 站 站 
站 工 1 
1 品 1 
1 T 站 


其 中 zi 和 zs 是 输入 , 是 理想 输出 。 多 层 感 知 器 的 参数 为 : 输入 层 2 个 神经 元 ,输出 层 
1 个 神经 元 , 隐 层 6 个 神经 元 , 学 习 率 Ap=0.5， 训 练 次 数 为 5000， 精度 eps 一 0. 0001， 训 
练 样本 数 为 4， 训练 样本 和 对 应 的 理想 输出 存储 在 数据 文件 xor.dat 中 ， 其 存储 格式 为 
Ziy ar 旭 即 0,0 0 0,1，1，1， 0 1 1，1，0，。 

主 函 煞 程 序 (文件 名 :mlp. my) ， 

打 jnelude ”stdio, hr 

并 include ”math. hy 


林 include "mlp.c” 








void mainf 7) 

{f int jj 长, ,11,Pychaoice layernurm yiterhnt ysatrmDpnutm + 
double miuyebs ,eyeps 
int nL10; 
char fname[L1i4],chynL1l] 
static double w[L500],bLlo0],r[Li00],dLl100],dqeltaL100]; 
FILE *fp， 
void initf ，input(y，outputC) ，updatef7，calecdeltar) 
void feedforward() ，readparatmneter()，savepatameter(] 
double fy，fqdf) 3 
Puts(t21L 一 一 Training ,2 一 一 (Output" 7 
Scan 0 echoicey) 

再 22 


主 《 echoice 一 一 1) 
{ putst2"Inbutr name of training satble data fijie ”74 
Seanfttwogsn fnarmeyj 
putstInbut the ntltnber of sampbles ”3 
scanff” 99d 人 sampntmy); 
Putsf"Input the jearning rate， tniu ”3 
Seanftf” 呈 ] eraiayy 
butsty”Inhput overall error threshaold，eps ”7 
Scanff” 96] eps7， 
Puts(”InPut the nutmber of training (iterationy 73 
scanftk” 9%d eciternum yy; 
Putsf"Input layer Dumpber of MILP" )， 
SCantgw” dy 必 1LayernurIry》 
putst" Input node number of each layvetr" 4 
for 1 一 0 和 <layernutmy4 十 十 ) 
{ PrintftNI0%d 一 Ana” 1) 
Scantgn ond en[1]7; 
} 
Kk 一 nL0]; 
for 刀 一 1 一 layernumi 十 十 ) 
{ 计 k 民 之 nyE 一 ni])， 
initklayernumyn kmwyb)y ; 
for tp 三 15P 近 一 iternumip 十 十 ) 
{ 让 人 pP 忽 100 一 一 0) printff"Ieration 一 站 dsn ip)i 
所 一作. 
让 《fp 一 fopenfinamesr 一 一 NULL) 
{ Putst wwnCannot open the sarmple 症 le”) 1 
exXitt( 人 7 
foer fi 一 0ii< sampnum ji 十 十 ) 
《for 0 一 05j<nL0]) 十 十 ) 

4 Scanffip 吧 ] 玫 本， } 
for (jj 一 03j<<n[layernum 一 ij 十 十 ) 

{ fseanfffip 7 辣 ] 生 ed 
eedforwardflayernum nk yy wb) 
ealedqeltaflayernumsnyk,d yywydelta)i 
UpdateKlayetnurmynkyyydeltaymiuywyhb)， 


ebp 一 站 .0 
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fior fi 一 0;1<n layernum 一 1 十 十 ) 
{ 让 一 layernum 一 1: 
ep 二 =: (d[-y[GL na 一 yxedD ->yFUL)xnL1 一 苛 ?; 
e 一 e 十 cp/2.0 
】} 
fclose (fp ); 
这 《ee < epsy) 
{ Pirintfik”snAactual training number 一 的 dm py 
Printig AnThe ovetall error 一 Jqlfwny ye)i 
break; 
} 
printf(” AnPDo you want to save the hetwork data (YAN 9? ”1 
scanff" 吃 S” ychynyi 
这 《chyn[0] 一 = YY | cehyn[o] 一 一 ?7 
{ sayeparatnetetrtlayermnutmsnykywsb)y } 
} 
else 
{ Teadparameter( tlayernumenggkv wb ， 
do 
{ inputCnyy)y 
feedforwardtlayernumny kiyy mbh)i 
Duatput(layernhum yny 攻 yy 4 
printtt" anDo you want to output again [YAN ?1 
scanff” 咱 syschyn)i 


;while 《chyn[Loj] 三 一 衬 "| | ehyn[Lo 一 一 入， 
} 
运行 结果 ， 
1 一 一 Trainimg ,2 一 一 WUtput 1 
Input name of training sarnpie data ffile xot. dat 
Input the number of samPples 和 
input the learning rate: tniu 和 .5 


Input overall error threshold，eps 0. 0001 
Input the numbetr of trainin 名 《itetationy) 5000 
Input jayer nutmber cf MLP “3 

Input node numbetr of each jayer 


入 2 和 4 


NO0) 一 2 
NC1)= 一 6 
NIC2) 一 上 
Do you 罗 ant to save the network data (YA ?7 
Input name of networK data file mlp.dat 

Input of MLP 

Inputr Pattern YL00) 一 


| 上 
安 ”局 


Input Pattetn 科 (0,1》 = 
Output of MELP 
(2,0) 一 0.018758 
- Do you Want to outpat again (YN ?T 了 
Input of MLP 
input battern YC0 ,07 一 0 
input pattern YY(O, 1 一 上 
Output of MLP 
Y(2,0) 一 0. 978113 
Do you want to output again (YAN) ?7 
Input of ME 
Input pattern YYk0,0)7 = 一 1 
Input Pattern Yoy1>》 一 昌 
Output of MLP 
TYT(20) 一 0.979612 
De you want to output again (YAN) ?3 了 
Input of MIP 
Jnput pattern Yf0:0) 一 1 
JInbut Pattern YY(0,1)7 一 1 
” Onutput cf MLP 
(207 一 0023950 
， Do yeu want to output again (YAN 7 mn 


31.2 离散 Hopfield 神经 网 络 


一 、 功 能 
离散 Hopfield 神经 网 络 模型 及 其 在 联想 记忆 中 的 应 用 。 
二 、 方 法 简介 


离散 Hopfieid 神经 办 络 由 N 个 神色 元 耳 连 榴 成 , 每 个 神 低 元 都 与 其 他 N 一 1 个 神经 
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元 相连 。 设 第 ; 个 神经 元 的 阔 仁 为 & , 它 接收 米 自 第 7 个 神经 元 的 全 导 , 其 连接 权 值 为 zw 
(假设 好 一 一 D) ， 玉 是 神 攻 经 元 的 状态 人 这 化 方程 为 



































wa AS ze 由 一 吕 ) 了 1 
其 中 是 第 个 神经 元 的 钵 出 7 是 醒 限 要 


1 ，7T 送 0 

















Fa 一 | 


(一 1 ，Yc0 

上 述 离散 Hopfield 神经 网 络 异型 可 用 于 联想 记忆 。 所谓 联 想 记 忆 ， 是 指 在 学 习 过 程 
中 存 入 型 个 样本 (全 一 1 4) ， 然 后 , 若 和 输入 束 三 和 十 趟 (其 中 天 是 邮 个 学 
习 样 本 之 一 ，? 是 吗 声 ) ， 则 要 求 输 出 了 一 " 。 

通过 人 台 理 选择 离散 Hopfield 神经 网 络 的 权 值 ,使 网 络 的 稳 态 恰好 为 联 起 记忆 的 一 组 
状态 ， 这 样 ， 当 给 网 络 输入 一 组 相近 的 模式 后 ， 经 过 神经 网 络 的 动态 演化 ， 最 丝 达 到 一 
个 与 初 态 在 汉 明 昨 离 意义 上 最 近 的 状态 ， 从 而 实现 联想 记忆 。 

用 离散 Hopfield 神经 网 络 实现 联想 记忆 的 具体 步 加 如 下 

1， 根据 答 定 的 模式 ， 利 用 外 称 贰 刚 ， 计 算 权 值 W (将 好 个 模式 存 于 网 络 中 》 

设 好 个 模式 为 舌 一 (12 条， 其 中 玫 和 一 1 十 1 , 它 表示 
第 * 类 神 式 的 第 ;个 元 豆 , 闪 是 网 络 节 点 数 , 是 模式 数 。 外 积 规则 为 


六 站 一 J/ 

2. 用 输入 模式 一 (riyzsyerv) 作为 网 络 的 初始 状态 

于 人 ) 一 1 过 
3， 窗 散 Hopfield 网 络 进 行动 态 演化 ， 即 反 复 计算 下 式 
i 引 十 1) 一 / 0 

直至 达到 稳 态 。 此 时， 神经 网 络 的 状态 懂 述 了 输入 模式 与 已 有 模式 的 最 佳 匹配 ， 从 而 实 
现 了 联想 记忆 。 

4. 返回 第 2 更 ， 对 下 一 个 模式 进行 联想 记忆 


三 、 司 用 说 明 
1， 子 函数 语句 


void hnnqdkwysatmple nyimy) 
2， 形 参 说 明 
一 一 双 精 度 实 型 二 维 数 组 ,体积 为 naXnsw[HiDi] 表 示 第 7 个 神经 元 的 输出 与 第 ; 个 
神经 元 的 输入 之 间 的 连接 权 。 
双 精 度 实 型 二 维 数 组 ， 体 积 为 趾 xn。sample[y][o] 表 示 第 六 个 模式 的 


























一 训 
































sample 
第 = 个 元 素 。 
a 一 一 整 型 变量 ， 神 径 苑 的 数目 。 
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m  -- 果 型 蛮 基 。 神经 圆 络 中 联想 记忆 的 模式 数 (在 本 节 中 ,模式 是 0 一 9 这 10 个 数 
字 , 因 此 im 一 10)， 


四 、 子 函数 程序 (文件 名 :hnnqd.c) 


其 ieluacdle ”stdico hy 


蔡 ineluqe ”conic, hh 





芽 define KM 10 

六 defince 512 

并 define 工 局 32 

闪 由 fine MAIN- 友 window(1,20,80,25)3 tcxtbackgroundCGREEN 7 
textcolork 了 HITT)， 

厢 define 更] window(5,] ,5 十 LN 一 1:18); textbackground WHITE)s 
texteolor(BLACK) 

并 define 区 2 windowf45,1.45 十 LN 一 1,18); textbackgrcoalndBLUE) 
texXtcolorCYELLOW) 


static ]ast-Xylast-yj 
void hnndftw ,samplevnemy 
Int Ts 
char (huge *w)LN]，sampble[ LN 
fint ij gci 
void recognize(ehar huge * )[XN]，char [DIEIN]， int， int)y# 
for 1 一 05i<cniiT 十 》 
tfeor (一 0j<i5 十 十 ) 
攻 可 一 0 
for(kk 一 站 <mik 十 十 ) 
fw[i][ 订 十 = sample[k][Dj] * sample[k][i]; } 
wDjLi 二 交 [ 问 [Di 
w[i 可 [一 
} 
while(C 1 ) 
{ Yecognize(w,samplenymy)s 
wprintff" enContinue to recognize another object? YAN) D)5 
While (Ke 一 getch(1 一 TD Race ER cl 一 
Windowft1,1,80,25); textbackground(BLACK)7 texteolotfk 鸡 HITE7?; 
让 《ec 一 一 人 洛 " | | ec 一 一 和 mn break 


27 


static void recoghizefwysarmpbleynyrmy) 


int try ny 
char (huge 关 三 )[N]，sarmpleLj LN ]; 
Lint 和 aaEytmPp yi sc 
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long KK 一 0 
double ratio; 
char t，objectLN]， 
int displyinKchar [],int)，displyoutkchar []); 
int inobjecetkechar # yintyFILE + 73 
void coryectdatafchar ,int longy?5 
可 Printf(y asrInput data of object for recognition :AN 
ndinptatDO.，，%d rrfrom sample) mm 一 1 
While ff (ce 一 getch(y ) < 挟 107 | | ce 和 一 1 十 ?707 区 本 ci 一 人 ) 
证 全” 人 人 一 下 一 1 十 扣 0 
{ wprintttr snEnter the ratio cf signal to nolse (SNR3:77i 
cseanfg” olfw Raratio]t# 
Tatio /一 ratio 十 1 
多 etchf 7) ; 
fer (ki 一 Dii<nii 十 十 ) 
ft 一 《chayJfrand()A32768.0 十 ratio 7 
object[Di] 一 《fsamplekc 一 癌 [ 订 0 7931 07tti 


} 
ter(i 一 0Oyri<nii 十 十 ) 
{ objectfi] 二 《cbject[ 订 > 关 0)71 ;一 1 》 
displayin(Cobjectyny} 
wprintf( nnPress any key to begin recognize ..，”) 4 
getcheys 
WwWgpzintfsn* 3 
while( 1 ) 
{ fag 一 0 
foer6i 一 Onaii 二 十》 
{ tmp 一 站; 
for(j 一 03i<njj 十 十 》 
{ tmp 十 一 w[ 问 DJ* object[j];y 
tmb 一 《tmp > 一 00079311: 一 1 
这 《objeet[Li] /一 tmb ) 


一 





{ phbjeet[i] 一 tmp 
flag 一 1 
十 十 
Correctdatatobjeer[i ji,iyKy); 


1 
1 


让 (fag 一 一 0) breaky 
} 
displayout(Cobjeet)# 
} 


static int disblayoutfopbject) 
char object[L ]; 
int it 

1 一 objeet[LQ ]; 


retutfntiy; 


static int displayinfobjectny》 
int ni 
chatr objectlL ] 
fint i3 
砚 1; gotoxyk1 2)， 
for 人 一 Dii<nii 十 十 ) 
1 putcenhf (object[Li = 一 一 1 ?0 
2 gotoxyf1T 2 
tor (一 Di<nia 十 十 ) 
{ putehf (objeceti] 一 一 一 3 有 事 


static woiq coITectdataftdatayiy 氏 7) 
机 


char 刀 atai 


Int 1; 

Long K， 

1 岗 2; gotoxytio%LN 二 liLN 二 2); 
Buteht (data 一 一 一 1 733 本 3 


wprinttt no519object[L3d] is beening correctedp 长, 
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static int incobjectfobjectmn dp) 
int 旭 
到 LE xp 
char objectL]; 
4 unsigned 1 tmbp 

for 和 一 05<ny ) 

f 让 《不 canfi 7 晰 X” 攻 tmp)y 一 一 下 DEF returnCEODEF2?; 
for 《一 Di<c8ii 十 十 ) 
1 objeet jj 一 二 一 ((Ctmp 可 (0x80> 人 iD) 人 0713 一 1 
计 站 二 一 互 》breakt# 


} 


TEturmnt( 3 


static int Drintttehar x<format, ，，)》 
{f int inyttmbp; 
char bufterL2561; 
va-list argPtr; 
MAIN- 风 ; 
gatoxyflast-xylast-yr)i 
va-start(Kar 多 btr fortmaty7 
nm 一 vsprintt(bufter ,formatyargptr); 
va-endCargptr7 
fcr 避 一 03ii<2565ii 十 十 ) 
switchtbufferLijy 。 
{ case 0 
tmb 一 1; 
Ptreak; 
case An” 1 
Putehe Ar 7 
default : 
PutcehCbuftferLi)s 
} 
这 tmBP = 一 一 1) breaks 
》 
last-x 一 Wherex( yj 
和 30 





last-y 一 Wherey( 7 
TetHITmCD 了 


} 
五 、 例 题 


用 离散 Hopfield 神经 网 络 进行 联想 记忆 , 实现 受 噪声 寺 抗 数字 的 恢复 .数字 0 一 8 由 
16X32 点 阵 构成 , 并 已 存 于 数据 文件 hand, dat 中 。 祥 经 元 数 "一 512, 模式 数 邓 =10, 信 
噪 比 SNR 一 2。 
主 函 数 程 序 ( 文 件 名 :hnnd. my): 

丰 include ”stdio.hy 

术 inelude ”Stdjib, By 

并 include ”conio.hy 

共 include ”alloc. hy 


帮 incelude ”hnnd. ec 





开 define RM 1 

匡 define 512 

砷 define LN 32 

共 define RMAIN-W windowf1 20,80,25])5 textbackgtrounG( 避 孜 忆 已 N DID 
textcolorkCWHIT 了 ); 

并 define 风 ] windowfk5,1, 5 十 L 芭 一 1,18)5 textbackground( WHITE 7) 
texteolorkBLAC 玫 》 

六 define 三 2 windoew(45,1 ,45 十 LN 一 1,18)]， texthbackgroundCBLUE ); 
textcolorfYELLOW) 

tnainK ) 


{ int iyjyEsnynmny 
static char sampleEMLN]，Chuge #* 交 LN 
PILE # 人 所; 
struet text-info text-datas 
int 好 PrintftCehar # 4 
int inobjeetfCcehar # int FEILE < 7 
void hnndfehar 《huge + )LNJehar [JUN]int'intyy 
gettextinfo(&wtext-data)3 
if (text-data. eurItmnode< 2 
{ texttncqe (text-data,currmode 十 2 
CCfp = fopen(*hnnd.datr yt) 一 一 NULL) 
{ fprintffstderr Can't opern data file "hnnadg,dqat va7 ); 
Exitf 一 123 
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4 
Clrscrf 》 3 
本 15 elrserfC 3 
了 erSetf 3 
MAIN-W elrsereys 
wprintTt Input tae ntimber of nodes of neJral networkst 民 一 Id Tin 7 
fscanfftfp 中 d Rn)i 
wbrintfttInput the number of training samples( 一 一 区 in MI) 
乓 canffp ”人 tmy)i 
wprintftThe number of nodes and sarmmple are dd 区划 An nn) 
for 和 一 人 Tc 上 十 } 

:WPrinttf” snInput the data of sarmple 产 din” 一 35 

这 《inobjeettsarmpleLti yny ip) = 一 下 OF: 
{ wprintttInput Qata errot or 站 le is rd rn” 7 


CXHtC -一 下) 


disbjavtofsarpble 1 ni 
Drintit” apress any Key TO DOntinue ， -和 
getchi yi 
fcloseftp) 
randomizef 7# 
计 《Cw 一 farcallocksizeotf xx wy 一 一 NULLL) 
4 PutsCrno enoucgh Temaory, ”35 
exit( 一 178 
} 
hnndtwysamplenmy)3 
Window(l20.80.2574 
CltscTrf 7) ; 
tecxtbackground WHITE ); 
textcolor(BILAC 攻 7 


运行 结果 : 
受 噪 过 干扰 的 数字 ”02 如 图 5 -1 一 la 所 未 ， 联 想 记 忆 后 的 结果 如 图 5 一 1 一 ib 所 示 。 
受 噪 声 干 拢 的 数字 "1? 如 图 5 一 1 一 2a 所 示 ， 联 想 记 忆 后 的 结果 如 图 5 一 1 一 如 所 示 。 
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所 一 1 一 芭 受 赔 庙 于 扰 的 数学 "0" 5 一 一 ib 发 涩 记忆 后 的 软 池 "0” 





围 91 一 加 受 硕 声 干 拢 前 数学 "1” 丁 和 1 一 引退 组 记 鹤 在 的 次 字 “1” 
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8$1.3 连续 Hopfield 神经 网 络 


一 、 功 能 
连续 Hopfield 神经 网 络 模 型 及 其 在 优化 计算 中 的 应 用 。 
二 、 方 法 简介 


设 连 续 Hopfield 神经 网 络 共 有 N 个 神经 元 ,第 ; 个 神经 元 的 输入 为 ww, 输出 为 mm, 输 
入 电阻 为 丸 ， 输 入 时 罕 为 C…， 阀 值 ( 仿 置 电流 ) 为 了 第 了 个 神经 元 的 给 出 与 第 ; 个 神经 元 
的 输入 之 间 的 过 接 入 为 ww， 则 连续 Hopfield 神经 网 络 可 表示 为 


筷 
dx 了 
Ce 一 之 2 一 六 十 于 


1 下 
也 一 Fa) 一 于 | 1 十 ranh| 玫 | | 
1 一 1 
其 中 w。 用 于 控制 郴 数 7 的 形状 , 当 zw0 时 ,7 就 成 为 硬 限 幅 表 数 。 民 为 


1 1 

六 一 元 十 名 加 
在 计算 机 上 进行 仿真 计算 时 ， 上 述 微 分 方程 组 的 求解 常 采用 欧 拉 方 法 。 
三 、 使 用 说 明 
1.， 子 觅 数 语句 


void hnnefwysiiynyug,rycyepsy hy) 
2， 形 大 说 明 
w 一 一 双 精 度 实 型 二 维 数组 , 体积 为 nxn。 表 示 第 7 个 神经 元 的 输出 与 第 ; 个 神经 元 
的 输入 之 间 的 连接 权 。 
ii 一 一 双 精 度 实 型 一 维 数 组 ， 长 度 为 a。 表 示 神 经 元 的 闪 值 ( 偏 置 电流 ) 工 。 
n 一 一 整 型 变量 。 神 经 元 的 数目 。 


a0- 一 双 精 度 实 型 变量 。 用 于 控制 神经 元 函数 六 "的 形状 。 当 zuo~0 时 , 疙 :成 为 硬 
限 幅 函数 。 


* 一 一 双 精 度 实 型 变量 。 神 经 元 的 输入 电阻 。 

ce 一 一 双 精 度 实 型 变量 。 神 经 元 的 输入 电容 。 

双 精 度 实 型 变量 。 神 经 网 络 的 计算 精度 。 

h- 一 双 精 度 实 型 变量 。 欧 拉 方 法 的 步 长 。 

v- 一 双 精 度 实 型 一 维 数组 ， 长 度 为 n。 神 经 网 络 的 输出 。 


四 、 子 函数 程序 (文件 名 :hnnc.e) 


失 incelude ”stdlib. he 
434 “ 
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共 inelude ”math hi 
void hnnctwiiynounDryesepsyhyy) 
int 了 4 。 
dounble Decru0vebs [ii ji 
{ int 1，jj; 
了 etuble ey， 关 Uy 关 区 ,关头 S1 
4 一 mallocfn x* sizeofftdouble77; 
各 一 mallockn # sizeoffdoubley); 
v1 一 mmalloctn sx sizeofkdouble))， 
s 二 mnatloc(n#xsizeoft(double))， 
Ph 一 hyes 
foer 避 一 0Oii<nii 十 十 )》 
人 Si 一 1Zr， 
for 避 一 0<n3;j 十 十 ) 
{ [一 Li 十 严 xm 十 训 ， } 
} 
for〈i 一 0ii<ni 十 十 》 
{vtD 一 00 
ui 一 间 .0; 
vi 一 D5x<(1 十 tanhkuLi ao77， 
do 
{ for 人 一 Di<nii 十 十 ) 
1sDil 一 ii; 
for 1 一 0<n 和 十 十 》 
4 s[i 计 一 s[ 癌 十 站 <n 十 站 <vp，} 


| 


for 0 一 0ii<nii 十 十 》 
1uat 一 ui 十 hx(s[i 一 外 <*u[i) 
for (ti 一 Ori<cni 十 十 ) 
{vL] 一 05x(〔(1 十 tanhtu[Liyzoo)2 } 
for〈i 一 0ii<nii 十 十 ) 
{e 一 fabsfv[Li 让 一 v1f 人 >， 
让 《ee > eps 》 
{ for 旭 一 05j<nij 十 十 ) 
{vl[i = vi ) 
preak; 


】 
} while (e > eps )# 
freeku2i 
freeKgy) 3 
freefv1) 1 
freefgs]y 
} 


五 、 例 题 


用 连续 Hopfield 神经 网 络 实现 四 位 AZD 变换 器 .。 神经 网 络 的 输入 是 模拟 重 z, 输出 
是 由 四 个 神色 元 给 铀 的 4 位 数字 量 , 用 让 :Fr 表示, 这 里 7.E 10，1}。 经 过 推导 , 得 
到 神经 网 络 的 连接 权 ww 和 阁 值 达 分 别 为 

si 一 一 261 

五 一 一 2 00 十 作 
选取 参数 : 神经 元 数 n 一 4, 电阻 * 一 10, 电容 < 一 1， zxo 一 0.002, 欧 拉 方 法 的 砂 长 如 一 10-”， 
计算 精度 eps 一 10。 神 经 网 络 从 初始 状态 开始 ， 坚 动态 演化 后 达到 稳定 状态 ， 从 而 得 到 
AZD 变换 器 的 输出 。 

主 画 数 程序 (文件 名 :hnne, my)， 

提 include ”stdio, hy 

并 include "math.h" 

芽 include "hnnc. cy 

Inaing ) 

《 int ij 

Qeouble csT4 区 DeEbpsA 
doupble w[L16], 8Ld4jvid4] 
Yeid hnncf7; 


n 一 4 

+ 一 工 0.0; 

ec 一 1.0; 

0 一 [0002; 
eps 一 1.0e 一 8 
一 1.0e 一 5 
while(1lT》 


{ Printf(" Please input 和 号 《 一 口 . 55.5) :93 
scanf gf xy7# 
计 《x 六 一 16) exitKO); 
for 6 一 0ii<cnii 十 十 ) 
{ 计 [L 梧 一 一 powf2.0,(2xi 一 1)) 十 pow(2.0:1) 区 
本 3 





for 日 王 Dj<n 和 十 十 ) 


{i 计 4 一 让 
1 wx 十 站 一 一 Dowft2.0:0 十 iD) 3 】} 
elsSe 


{ 到 [xm 十 站 一 0.0;) 


} 
hnneCwyiinsub0ryerepsyhyv); 
fier (一 nm 一 11> 一 0 》 





{ DrintfC7 上 6. Lv )} 
Printf (ny” ) ， 
} 
} 
运行 结果 : 
Pjease input 其 《0 一 157:， 2 
.0 0 站 1 站 吕 . 昌 
Please input 其 《0 一 157:，3.4 
站 .和 0 站 ,总 1 .各 1.59 
Please input 其 《0 一 15):，5.6 
站 .性 1 避 工 .站 全 , 属 
Please input 息 《0 一 1527， 员 ,5 
1 .0 0. 0 口 , 和 1. 0 
Please input 人 〔〈0 一 157，10. 曙 
1.0 0 1 . 交 0 1 0 
Please input 《0 一 157:， 14. 3 
1.0 1. 昌 1.0 0. 0 
1.4 Tank-Hopfield 线性 规划 神经 网 络 
一 \ 功 能 
用 于 求解 线性 规划 问题 的 Tank-Hopfield 神经 网 络 模型 。 
一 \ 方 法 简介 
线性 规划 的 数学 描述 如 下 ; 
卢 标 函数 为 
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约 蝎 条 件 为 
BT 十 Gasre 十 十 Ga pw 闫 及 
Ga 1 十 ca zz 十 … 十 tav Tu 芒 可 


好 人 zi 十 Ca zs 十 … 十 av mw 六 忆 xwr 
其 中 记 人 一 1 2 是 优化 变 其 ， 人 一 1 2 了 一 1: 2 均 是 常数 。 
注 求 解 上 述 线 性 规划 问题 ,Tank 和 Hopfield 构造 了 神经 网 络 模型 , 它 由 六 个 线性 神 
经 元 &E() 和 1 个 非 线性 神经 元 乒 ') 组 成 。 设 第 ; 个 线性 神经 元 的 输入 为 上 ,输出 为 z， 
输入 电阻 为 尽 ,输入 电容 为 C, 刚 Tank-Hopfield 神经 网 络 模型 可 描述 为 


dz 和 世 
(， 到 一 六 之 ADdr [0 忆 ) 


um 一 ECo) 一 Bu ， 有 为 常数 (电压 放大 倍数 ) 








一 12 
其 中 员 为 
1 _ 1 Rn、 
六 一 六 一 放 人 
冰 数 /为 
站 工人 昌 
7 一 | 闻 < 
其 中 ab 
在 计算 机 上 进行 仿真 计算 时 ,上 述 微分 方程 组 的 求解 常 采用 欧 拉 方法 。 
三 .使 用 说 明 
1. 浮 函数 语句 
void hnnlpkaydvbytmnynsrcsyepshyv》 
2，、 形 参 说 明 


a 一 一 双 精 度 实 型 一 维 数组 ， 长 庆 为 na。 线性 规划 目标 函数 的 系数 向 量 。 

d 一 一 双 精 度 实 型 二 绯 数组 ， 体 积 为 吓 Xna。 线 性 规划 约束 条 件 的 左 端 系数 矩阵 。 
b 一 一 双 精 度 实 型 一 维 数组 ， 长 度 为 王 ， 线 性 规划 约束 条 件 的 右 端 系数 向 量 。 
mm 一 一 整 型 变量 。 线 性 规划 约束 方程 的 个 数 ， 也 是 非 线 性 神经 元 的 数目 。 
na 一 一 整 型 变量 。 线 性 规划 优化 变量 的 个 数 ， 也 是 线性 神经 元 的 数目 。 

rz 一 一 双 精 度 实 型 变量 。 线 性 神经 元 的 输入 电阻 。 

ce 一 双 精 度 实 型 变量 。 线 性 神经 元 的 输入 电 赛 。 

eps 一 一双 精度 实 型 变量 。 神经 网 络 的 计算 精度 。 

h 一 一 双 精 庆 实 型 变量 。 葬 拉 方 法 的 步 长 。 

Y 一 双 精 度 实 型 一 维 数 组 ， 长 度 为 n。 神 经 网 络 的 输出 ， 即 线性 规划 的 解 。 
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四 、 子 函数 程序 (文件 名 :hnnlP,ec) 


并 include ”stdlib, hr” 
并 include math.hy 
村 include "uniform c” 
void hnnlpfaqdsb mnsrcyeps hev) 
int ny ni 
double chyryepssa[],b-],d[],v[ Ji 
fint ij 
long int seeq; 
Qdoubje ey 关 U， 关 1 关 呈 SS 其 区 
double uniformt double ，double ,， long < 7 
double gffdouble)，fKdouble); 
4 一 Inalloctn xsizeof(double yy; 
台 一 malloctn x# sizeoffdoubley); 
v1 一 mallocCn * sizeof(tdouble)y5 
s 一 Inatlockn < sizeof(double7 7 


s1 一 Immailoctkrm x Sizeoftdouble77， 


Ph 一 heci 
fer 台 一 和 ii<n3i 二 十 ) 
fgLi] 一 17r 


fezr 名 一 和 <cmi 十 十》 
{gDJ = 一 gg 一 qdLixsn 二 ii; } 
} 
seead 一 135791 ; 
for (ii 一 Di1<n3ii 十 十 ) 
1u[ 门 = "uniformn(0.0,1.0,Bseed)i 
v[ 记 一 gtkuri]); 
vi 一 0.0; 
} 
do 
1 for 对 一 0 引 扫 但 相 二 十) 
{ sl[ 和 一 一 bD]; 
for (KK 一 OK< 和 ai 引 十 十 ) 
1sl[j 一 slb0] 十 dLjxnTKk]xv[LKk]i ) 


} 
foer 6 一 Dii<nyi 二 十 ) 
fs 一 .0 
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for 0 一 0ij<cm5 引 十 十 ) 
fs[ 订 一 s[ 让 十 abxsn 十 让 #f 人 sl 
} 
foer《i 一 0ii<cnii 十 十 》 
41uari 一 ua[i 训 一 hxkat 十 gxuk] 十 sy); 
for (i 一 Dii<n5si 十 十 ) 
{vi 一 ga } 
for 0 一 05ii<nii 十 十 ) 
{fe 一 fabscv[i] 一 10)， 
这 (ee > eps ) 
{ for 0 一 05<mn5 十 十 ) 
{vlD] 一 v0]) 
byesks; 
} 
while(e 人 > eps 7); 
freeku) 1 
free( 名 7 
freefv1); 
freegs7; 


freefs1)3 


static double gf(Cxy) 

double xi 

{ double betai 
beta 一 100. 0 


ITeturm(X# beta7# 


} 


static double fx) 
double xi 
{ double z,alpha ; 
aipha 一 60,D; 
2 一 《xD 一 0.0)700:，alphaxx， 


tretutrnfdz)s 





五 、 例 题 
用 Tank-Hopfield 神经 网 络 求解 下 述 线性 规划 问题 : 


目标 冰 数 为 
cfzlyza) 一 z 十 Ye 

约 东 条件 为 
3 瘀 一 了 
一 六 一 5 


一 5o 十 12p: 之 一 35 
一 5p1 一 2 之 一 35 
选取 参数 :线性 神经 元 数 n 一 2, 非 线 性 排 经 元 数 上 一 4， 电 阻 * 王 10,， 电容 c 一 1,，aw= 一 60， 有 
=100, 欧 拉 方法 的 步 长 4 一 10 ,计算 精度 eps=10 一 。 神 经 网 络 从 初始 状态 开始 ,经 动 
态 演化 后 达到 稳定 状态 ， 从 而 得 到 线性 规划 的 解 。 
主 示 数 程序 (文件 名 ;hnnip,mn): 
#include ”stdio. hy 
并 incluqde "hnelp.cy 


Inaing 》 





{《 int imons 
double ce,hirvepsv[4]; 
static double aL2 一 {10，1.0)}; 
static double b[4 ”一 【一 5， 一 5， 一 35， 一 35)3 
static double d[L4]L2] 一 {(1，0)， 10， 一 1) (一 5，12} (一 5， 一 2 3 
void hnnlp yy 


了 In 一 4; 

了 一 24 

T 一 10.0; 

CC 一 1.04 

eps 一 1].0e 一 4 
h 一 .0e 一 5; 


hnnlpkasdybymnrrycyepsyhyv)y 
btintft7 了 he Solution of Linear ProgrtamimingNn7 ); 
for 人 (一 0ii<cn 和 十 十 ) 

{ printieCn vd 一 上 10.5fn isvLi]7s 》 


运行 结果 ， 

线性 规划 的 解 为 
v(0) 一 一 5.01807 
vG) 一 一 所 00764 
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